+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : طباعة شهادة باستخدام الفيجوال بيسك (/showthread.php?tid=11041)
طباعة شهادة باستخدام الفيجوال بيسك - fady013 - 29-12-14
الاخوة و الأخوات السلام عليكم ورحمة الله وبركاته
عندي برنامج يقوم باستعلام عن الطلاب , فالطالب الناجح أريد بضغطة زر أن أطبع له شهادة نجاح مع ذكر اسمه بالاستعلام السابق
علما أن الشهادة هي ملف وورد A4 أفقي وليس عمودي
كيف أقوم بها؟؟؟؟؟؟
حاولت أن يكون الوورد ole ولكن ما نجح الامر
حاولت أن يطبع الفورم واجهة مشكلة أريدعملية الطباعة أفقي وليس عمودي
ترى أن الشهادة عبر الوورد أفضل بكثير من datareport من حيث اضافة الالوان و الخلفيات و التحكم بالوورد عند تصميم الشهادة
RE: طباعة شهادة باستخدام الفيجوال بيسك - Ahmed_Mansoor - 29-12-14
ارفق مثال ليتم الاطلاع عليه
RE: طباعة شهادة باستخدام الفيجوال بيسك - fady013 - 30-12-14
ها هو يا سيد أحمد منصور
مثال عليه وليس كامل , لأنه تهمنا الفكرة
وللتوضيح
طباعة شهادة طالب على ملف WORD نوع الورقة A4 بشكل أفقي وليس رأسي
وذلك من خلال برنامج VB , يقوم بادخال علامات الطلاب و التعامل مع بيانات مدرسة و في أخر العام يطبع شهادات نجاح للطلاب الناجحين أو لمن يتم له الاستعلام والبحث
في مثالي هذا ... استعلم عن طالب برقمه نفترض أنه (1) في TEXT1 , فيخرج لنا اسم الطالب في LABEL1 بعد النقر على البحث
وعند النقر على اطبع نريد ان يطبع الشهادة الموجودة بالملف المرفق مذكور بها اسم الطالب.
هل في أفكار أخرى , أو حل لمثالي السابق , أو أي حاجة في أي حاجة يا مان
شكرا لك
RE: طباعة شهادة باستخدام الفيجوال بيسك - Ahmed_Mansoor - 31-12-14
التعديل في المرفقات .
RE: طباعة شهادة باستخدام الفيجوال بيسك - Ksa004 - 01-01-15
السلام عليكم ورحمة الله وبركاته
نعم اخي توجد طريقه واسهل منها مافي
فقط تحتاج الى قاعدة بيانات اكسس توجد بها بيانات الطلاب
وكذالك تحتاج الى ملف وورد مصصم على هيئة شهاده دراسيه وخاليه من بيانات الطلبه
وتربط الخانه مثلا text1 اللي هي تمثل اسم الطالب ب bookmark في ملف الوورد
وتقوم بطابعة الملف وانتهى
وشكرا
RE: طباعة شهادة باستخدام الفيجوال بيسك - fady013 - 04-01-15
(31-12-14, 02:17 AM)Ahmed_Mansoor كتب : التعديل في المرفقات .
سيدي الفاضل شكرا لك
ولكن ملف Certificate الوورد غير موجود بالملحق أتمنى منك مشكورا أن تعيد تحميل الملف بالكامل ويكون به ملف الوورد الشهادة Certificate
شكرا لك
(01-01-15, 11:22 AM)Ksa004 كتب : السلام عليكم ورحمة الله وبركاته
نعم اخي توجد طريقه واسهل منها مافي
فقط تحتاج الى قاعدة بيانات اكسس توجد بها بيانات الطلاب
وكذالك تحتاج الى ملف وورد مصصم على هيئة شهاده دراسيه وخاليه من بيانات الطلبه
وتربط الخانه مثلا text1 اللي هي تمثل اسم الطالب ب bookmark في ملف الوورد
وتقوم بطابعة الملف وانتهى
وشكرا
الأخ الحبيب هلا مثال مرفق وهو خير توضيح لفكرتك
لأني بجد ما ركبت الفكرة معي
حيث bookmark كيف أربطه مع text1 في فورم الفيجوال بيسك6.0
شكرا سيدي الفاضل
RE: طباعة شهادة باستخدام الفيجوال بيسك - fady013 - 04-01-15
(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