Creo que deberías iniciar la variable INICIALMARGEN antes de llamar a encabezarGrilla, tanto al inicio del proceso como cuando detectas que se han impreso 37 líneas por página.


'Margenes
HorizontalMargen = (21.59 - Printer.ScaleWidth) / 2
VerticalMargen = (27.94 - Printer.ScaleHeight) / 2

HorizontalMargen = 0.1 + HorizontalMargen
VerticalMargen = 0.1 + VerticalMargen

Fíjate que utilizas VerticalMargen para posicionar la cabeza de impresión y le vas sumando 0.6, pero en ningún momento del bucle la vuelves aponer a su valor inicial, por lo que la impresora está imprimiendo FUERA del papel y ella misma provoca un salto de página.

Creo que es esto lo que te está pasando.

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion