¿Como imprimir en varias hojas con Printdocument1

[takumapv]

Hola buen dia mi problema es el siguiente no se si me pudieran ayudar tengo el siguiente codigo. lo que suscede es que al momento de mandar a imprimir me muestra solo una hoja con "N" cantidad de registros lo que quisiera es que se mostraran los registros faltantes en otra hoja u hojas alguna idea de como solucnarlo ????

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim i, y As Integer
Dim fuente, fuente1 As System.Drawing.Font
Dim dt As New DataTable()
Dim strSQL As String = "SELECT * FROM actividades1 ORDER BY numero"
Dim connStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=actividades.mdb"
Dim fecha As Date = Now.Date
Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, connStr)
fuente1 = New System.Drawing.Font("Goudy Stout", 12)
dataAdapter.Fill(dt)
dataAdapter.Dispose()
fuente = New System.Drawing.Font("Perpetua Titling MT", 10)
e.Graphics.DrawImage(piclogo.Image, 13, 10)

e.Graphics.DrawString("Reporte de Actividades", fuente1, Brushes.Black, 380, 70)
e.Graphics.DrawString("Semanal", fuente1, Brushes.Black, 500, 90)
e.Graphics.DrawString("N°", fuente, Brushes.Black, 15, 210)
e.Graphics.DrawString("Inicio", fuente, Brushes.Black, 50, 210)
e.Graphics.DrawString("Tarea", fuente, Brushes.Black, 150, 210)
e.Graphics.DrawString("Detalle", fuente, Brushes.Black, 250, 210)
e.Graphics.DrawString("Fin", fuente, Brushes.Black, 700, 210)
y = 240
For i = 0 To dt.Rows.Count - 1
e.Graphics.DrawString(CStr(dt.Rows(i)("Numero")), fuente, Brushes.Black, 15, y)
e.Graphics.DrawString(CStr(dt.Rows(i)("fecha_inici al")), fuente, Brushes.Black, 50, y)
e.Graphics.DrawString(CStr(dt.Rows(i)("tarea")), fuente, Brushes.Black, 150, y)
e.Graphics.DrawString(CStr(dt.Rows(i)("detalle")), fuente, Brushes.Black, 250, y)
e.Graphics.DrawString(CStr(dt.Rows(i)("fecha_final ")), fuente, Brushes.Black, 700, y)
y += 20

Next
End Sub