Come crea la seconda pagina utilizzando questo codice?

codice:
Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim myFont As New System.Drawing.Font("Arial", 24, FontStyle.Bold)
        Dim myFormat As New Drawing.StringFormat()
        myFormat.FormatFlags = Drawing.StringFormatFlags.DirectionRightToLeft

        'intestazione
        ................       
        'corpo della stampa
        
        'connessione con il DB
        Dim myconnect As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & varServer)
       .......

        Try
            rs.Connection.Open()
            rsRea = rs.ExecuteReader(CommandBehavior.CloseConnection)

            Dim varY As Integer
            varY = 150
            Dim FontCorpo As New System.Drawing.Font("Arial", 12, FontStyle.Regular)

            Do While rsRea.Read()
                e.Graphics.DrawString(rsRea.Item("Cognome") & " " & rsRea.Item("Nome"), FontCorpo, Drawing.Brushes.Black, 28, varY)
                varY = varY + 20
                If varY > 1100 Then
                  '** Qui devo inserire una nuova pagina...
                End If             
            Loop
            
        Catch ex As OleDb.OleDbException
            MessageBox.Show("Errore nella stampa", varTitolo, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub