imprimir varias páginas con el printdocument en vb.net

[CarmenRocio]

LO QUE HICE FUE ESTO

Private Sub prt_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
' Este evento se produce cada vez que se va a imprimir una página
Dim printFont As System.Drawing.Font
printFont = prtFont

'Datos es una lista generica de mi base de datos trabajadores

For Each info As BoInfo In Datos
nContador += 1
e.Graphics.DrawRectangle(New Pen(Color.Red, 1), -75, -75, 1585, 639)

e.Graphics.DrawString("Código", printFont, Brushes.Black, 170, 60)
e.Graphics.DrawString(info.codigo, printFont, Brushes.Black, 460, 60)

If nContador < Datos.Count Then
e.HasMorePages = True ' Todavia faltan mas paginas
End If

Next
End Sub


-PUSE EL IF ADENTRO COMO ME DIJISTES ME SALIO UFFFFFF PORFIN PUEDO VER LAS DOS PAGINAS PERO AHORA TENGO OTRO PROBLEMA DE NUNCA ACABAR QUE LOS DOS REGISTRO SALEN EN LAS DOS HOJAS
ASI
EN LA PIMERA HOJA SALE
24 del 01/01/2011 al 31/02/2011 000001
24 del 01/01/2011 al 31/02/2011 000002

EN LA SEGUNA HOJA SALE LO MISMO

24 del 01/01/2011 al 31/02/2011 000001
24 del 01/01/2011 al 31/02/2011 000002
PERO YO QUIERO QUE SOLO SALGA CADA CODIGO EN SU HOJA EL UNO Y APARTE EL OTRO
GRACIAS POR LA AYUDA AQUAVENTUS.