منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
برجاء المساعدة بكود تعدد الصفحات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : برجاء المساعدة بكود تعدد الصفحات (/showthread.php?tid=35568)

برجاء المساعدة بكود تعدد الصفحات - Hazem1 - 09-07-20

بسم الله الرحمن الرحيم

لدي Textbox3 و Textbox2 و Textbox1  أريد أن يتم طباعة كل نص في صفحة على حدى في نفس المكان، فما الكود بارك الله فيكم ويسر لكم أعمالكم
للعلم أنا حاولت وللأسف الصفحة الثانية تأتي فارغة ويتم إضافة الصناديق النصية الثلاثة فوق بعضها في الصفحة الأولى

هذا مثال للكود :
كود :
Dim Fontsize As New System.Drawing.Font("Calibri (Body)", 12.03)
     

e.Graphics.DrawString(TextBox5.Text, Fontsize, Brushes.Black, 5, 11)
e.Graphics.DrawString(TextBox8.Text, Fontsize, Brushes.Black, 5, 11)
e.Graphics.DrawString(TextBox11.Text, Fontsize, Brushes.Black, 5, 11)


RE: برجاء المساعدة بكود تعدد الصفحات - Hazem1 - 10-07-20

لا حول ولا قوة إلا بالله العلي العظيم

RE: برجاء المساعدة بكود تعدد الصفحات - WaeLx - 10-07-20

السلام عليكم و رحمة الله و بركاته

قم بتعريف متغير بالكلاس و ليكن pn كمتغير رقمي صحيح

كود :
Dim pn As Integer = 1

ثم ضع الكود الخاص بك بالشروط التالية

كود :
Dim Fontsize As New System.Drawing.Font("Calibri (Body)", 12.03)

       If pn = 1 Then
           e.Graphics.DrawString(TextBox5.Text, Fontsize, Brushes.Black, 5, 11)
           pn = 2
           e.HasMorePages = True
       ElseIf pn = 2 Then
           e.Graphics.DrawString(TextBox8.Text, Fontsize, Brushes.Black, 5, 11)
           pn = 3
           e.HasMorePages = True
       ElseIf pn = 3 Then
           e.Graphics.DrawString(TextBox11.Text, Fontsize, Brushes.Black, 5, 11)
           e.HasMorePages = False
       End If