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

[Aquaventus]

haber pruebalo asi :

Código vb.net:

Dim printFont As System.Drawing.Font
        Dim linesPerPage As Single = 1 'Defino 1 linea por hoja
        Dim count As Single = 0 'Defino un contador
        Dim nContador As Integer = 0
        Dim printFont As System.Drawing.Font
        printFont = prtFont
 
        For Each info As BoInfo In Datos
            If nContador < linesPerPage Then
                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)
            Else
                count = 0
                Exit For
            End If
            
            nContador += 1
            count += 1
        Next
        If nContador < Datos.Count Then
            e.HasMorePages = True
        Else
            e.HasMorePages = False
        End If