e.HasMorePages = True/False

e.HasMorePages = False

private PrintedPage as Integer =1
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As _
  System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    if PrintedPage = 1 Then
      e.Graphics.DrawImage(memImage, 0, 0)
      e.HasMorePages = True
    else
      .DrawString("Dieser Text soll auf Seite 2", New Font("Arial", 10), New _
        SolidBrush(Color.Black), 91, 1065)
      e.HasMorePages = False
    end if
    PrintedPage += 1
End Sub