Imprimir mas de una pagina

[ncmaster]

Mil gracias por su ayuda, realmente se pasaron, son muy gentiles, de verdad mil gracias.
Ya lo soluciones y no se si sera lo mas apropiado pero funciona.

cuenta_linea += 1
total_lineas += 1
If cuenta_linea = 6 Then
cuenta_linea = 0
pagina_n += 1
eve.HasMorePages = True
Exit While
End If
cta_linea = cuenta_linea * 15
End While
If cuenta_linea <> 0 Then
eve.Graphics.DrawString("Total de Contactos " + CStr(total_lineas), lnFont, Brushes.Black, colum_4, 70 + cta_linea + 15)
conexion.Close()
eve.HasMorePages = False
End If
End Sub

y si hay alguien a quien pueda ayudar, tratare de hacer lo mejor posible con la poca experiencia que tengo en VB.Net, pero los algoritmos son los mismos para todos.

GRACIAS TOTALES . . .