Code:
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim i As Integer
For i = 1 To 3
e.Graphics.DrawString(Label1.Text, Label1.Font, Brushes.Black, 100, 200)
If i < 3 Then
e.HasMorePages = True
Else
e.HasMorePages = False
End If
Next i
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim i As Integer
For i = 1 To 3
e.Graphics.DrawString(Label1.Text, Label1.Font, Brushes.Black, 100, 200)
If i < 3 Then
e.HasMorePages = True
Else
e.HasMorePages = False
End If
Next i
End Sub