[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