ayuda con impresion en vb.net

[eledgarr]

If MiSumaRegs >= Go_DataSet.Tables(MsTabElem).Rows.Count Then 'Si se imprimieron todos los registros termina
e.HasMorePages = False
Else
e.HasMorePages = True 'existen registros por imprimir continua en otra hoja
End If


Tu podrias poner algo asi como que si rebasa el alto de tu hoja continue en otra espero te sirva si no pon mas datos de tu codigo