الاخوة و الأخوات السلام عليكم ورحمة الله وبركاته
عندي برنامج يقوم باستعلام عن الطلاب , فالطالب الناجح أريد بضغطة زر أن أطبع له شهادة نجاح مع ذكر اسمه بالاستعلام السابق
علما أن الشهادة هي ملف وورد A4 أفقي وليس عمودي
كيف أقوم بها؟؟؟؟؟؟
حاولت أن يكون الوورد ole ولكن ما نجح الامر
حاولت أن يطبع الفورم واجهة مشكلة أريدعملية الطباعة أفقي وليس عمودي
ترى أن الشهادة عبر الوورد أفضل بكثير من datareport من حيث اضافة الالوان و الخلفيات و التحكم بالوورد عند تصميم الشهادة
ارفق مثال ليتم الاطلاع عليه
ها هو يا سيد أحمد منصور
مثال عليه وليس كامل , لأنه تهمنا الفكرة
وللتوضيح
طباعة شهادة طالب على ملف WORD نوع الورقة A4 بشكل أفقي وليس رأسي
وذلك من خلال برنامج VB , يقوم بادخال علامات الطلاب و التعامل مع بيانات مدرسة و في أخر العام يطبع شهادات نجاح للطلاب الناجحين أو لمن يتم له الاستعلام والبحث
في مثالي هذا ... استعلم عن طالب برقمه نفترض أنه (1) في TEXT1 , فيخرج لنا اسم الطالب في LABEL1 بعد النقر على البحث
وعند النقر على اطبع نريد ان يطبع الشهادة الموجودة بالملف المرفق مذكور بها اسم الطالب.
هل في أفكار أخرى , أو حل لمثالي السابق , أو أي حاجة في أي حاجة يا مان
شكرا لك
السلام عليكم ورحمة الله وبركاته
نعم اخي توجد طريقه واسهل منها مافي
فقط تحتاج الى قاعدة بيانات اكسس توجد بها بيانات الطلاب
وكذالك تحتاج الى ملف وورد مصصم على هيئة شهاده دراسيه وخاليه من بيانات الطلبه
وتربط الخانه مثلا text1 اللي هي تمثل اسم الطالب ب bookmark في ملف الوورد
وتقوم بطابعة الملف وانتهى
وشكرا
(31-12-14, 02:17 AM)Ahmed_Mansoor كتب : [ -> ]التعديل في المرفقات .
سيدي الفاضل شكرا لك
ولكن ملف Certificate الوورد غير موجود بالملحق أتمنى منك مشكورا أن تعيد تحميل الملف بالكامل ويكون به ملف الوورد الشهادة Certificate
شكرا لك
(01-01-15, 11:22 AM)Ksa004 كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
نعم اخي توجد طريقه واسهل منها مافي
فقط تحتاج الى قاعدة بيانات اكسس توجد بها بيانات الطلاب
وكذالك تحتاج الى ملف وورد مصصم على هيئة شهاده دراسيه وخاليه من بيانات الطلبه
وتربط الخانه مثلا text1 اللي هي تمثل اسم الطالب ب bookmark في ملف الوورد
وتقوم بطابعة الملف وانتهى
وشكرا
الأخ الحبيب هلا مثال مرفق وهو خير توضيح لفكرتك
لأني بجد ما ركبت الفكرة معي
حيث bookmark كيف أربطه مع text1 في فورم الفيجوال بيسك6.0
شكرا سيدي الفاضل
(31-12-14, 02:17 AM)Ahmed_Mansoor كتب : [ -> ]التعديل في المرفقات .
أخي الفاضل قمت بتعديلات على الملف, حيث أنشأت ملف وورد جديد باسم Certificate وتم بحمد الله بعدما قرأت الكود البرمجي حقك
ولا يسعني إلا أن أقول لك جزالك الله خيرا
لك مني كل الاحترام والحب والتقدير
وأتمنى أن تفيد هذه الفكرة جميع المتابعين للمنتدى وجميع الشباب محبي vb6.0
لذا هل هذه الجمل لوضع بيانات من الفورم إلى صفحة الوورد مع تغيير المرسل لها
إقتباس :With Word_App.Selection.Find
.Text = "<DATE>"
.Replacement.Text = Trim$(Text2.Text)
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Word_App.Selection.Find.Execute Replace:=wdReplaceAll