Qué tal?
Yo se que el standard para la orientación vertical es de 66 líneas, pero en la realidad va a depender del tamaño del papel y del tipo de letra.
El objeto Printer (te hablo de VB6) no tiene ninguna propiedad que te diga el número de líneas porque lo considera un objeto gráfico, pero puedes hacer el cálculo con sus propiedades ScaleHeight (alto del area de dibujo) y CurrentY (coordenada vertical del siguiente punto).
Si sólo imprimes texto, puedes hacer la comprobación:
Código:
If Printer.CurrentY + Printer.TextHeight(<texto a imprimir>) > Printer.ScaleHeight Then
Call Printer.NewPage
End If
Es un poco rudimentaria, pero te sirve como base.