[Hazem1]

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

لدي 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)

[Hazem1]

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

[WaeLx]

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

قم بتعريف متغير بالكلاس و ليكن 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