Visual Basic - IMPRIMIR LISTBOX urgente

HOLA A TODOS QUISIERA QUE ME AYUDEN A IMPRIMIR UN LISTBOX

Normalmnte lo hago asi

hj = 1200

For i = 0 To List1.ListCount - 1
Printer.FontSize = 9
Printer.FontBold = False
Printer.CurrentX = 1300
Printer.CurrentY = hj
Printer.Print List1.List(i)
hj = hj + 200
Next

pero tengo un problema cuando este lisbox tiene mas de 150 registros ( o mejor dicho el contenido del listbox es mas grande que el tamaño de la hoja A4 ) , pìenso que deberia saltar a otra hoja y continuar con la impresion sin embargo ... lo que hace este codigo es: que cuando llega al final de la primera hoja jala otra hoja pero solo imprime un registro y vuelve a jalar otra con otro registro y asi susesivamente osesa que a partir de la segunda hoja solo me imprime un registro y jala otra hoja

ESPERO QUE ME AYUDEN

mira yo tengo el mismo probrema...




solo ponle una condicion que cuando
la cantidad de datos sea mayor a la cantida
que puede almacenar la hoja que te repita el prosceso
pero desde el comienzo... resuelvelo con printer.newpage

y ese es justamente mi problema que no se los nombre de las funciones
para lograr que haga eso, cuando lo logres me avisas, o me das los nombres
de las funciones (cantidad de filas que cabenen una hoja) para hacerlo y mandartelo