Stampanje na vise strana

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