منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اخواني لدي سؤالين وأنا على يقين بوجود الحل لديكم 
السؤال الأول :
في برنامجي  وفي ال form الخاص بالطباعة اقوم بإظهار البيانات الموجودة في sql على data grid view وانا اريد ان اطبع كل صفين من data grid view على صفحة وتلقائيا تنتقل الطباعة لصفحة ثانية ويبقى البرنامج يطبع إلى أن تنتهي الصفوف الموجود فيها بيانات فا يتوقف البرنامج عن الطباعة ،
لقد واجهت هذه المشكلة ولم اجد لها حل كوني مبتدأ
والكود الذي استخدمه حالياً يشترط عليي تحديد رقم الصف وانا لا أريد ذلك لأن لدي صفوف كثيرة ومن غير المنطقي أن اكتب لكل صف هذه الاكواد
الكود الذي استخدمه هو
e.Grphics.Drawstring(Dt.Rows(0)("name"),Aril ,Brushes.Black, 520,250,sf)
وهذا الكود يجب أن أكرره بعدد الاعمدة الموجودة لدي
والسؤال الثاني :
برنامجي لا يقبل الخط الذي أختار أنما يبقى على خط البرنامج الاساسي

بالنسبة لموضوع الخط هذا هو الكود :


اما بالنسبة لسجلين في كل صفحة اي لو عندك الف سجل ستقوم بطباعة 2000 صفحة .

شكرا لك أخي
نعم اذا كان لدي ١٠٠٠ سجل سوف احتاج ل ٥٠٠ صفحة

---

كود الخط لم ينجح انا اريد تحديدا نوع الخط Aril ومع ذلك مهما غيرت في الخطوط لا يتغير
الكود الذي اعمل به
Dim fun As New Font ("Aril",11,fontstyle.Bold)

---

كود الخط لم ينجح انا اريد تحديدا نوع الخط Aril ومع ذلك مهما غيرت في الخطوط لا يتغير
الكود الذي اعمل به
Dim fun As New Font ("Aril",11,fontstyle.Bold)

هذا مثال بسيط به أيضا كود تعديل الخط . 

عدله حسب طلبك به كل ما تريد :

شكرا لك اخي السؤال الأول قد حل
ولكن السؤال المتعلق بالخط لم ينجح ماسبب

لقد جربت المثال عندي و عمل الخط :

[attachment=22372]

و هذا مثال ثاني بنفس الكود مع اضافة زر ثاني لترى الفرق .

لقد تغير الفونت الى الشكل الذي أريده ..
شكرا لك اخي ابراهيم