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

[Aquaventus]

hola sorry la demora >.< ando en asuntos del trabajo, intenta con esto

Código vb:

For Each info As BoInfo In Datos
nContador += 1
If nContador < Datos.Count 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)
 
e.HasMorePages = True ' Todavia faltan mas paginas
End If
 
Next
End Sub
 

PDT: NO ES NECESARIO QUE HAGAS SPAM :S