Lo que debes hacer es pulsar la tecla [F9] sobre la línea "Printer.FontBold = False". Luego pulsas [F5] y cuando veas que se te para sobre la línea en que pusiste el Stop, vas pulsando [F8] y pones el cursor sobre el nombre de las distintas variables, para ver qué valor tienen en cada momento, y por qué se incrementa la línea.

Eso es lo que se dice "hacer debug", que es fundamental manejarlo bien para que seas tú el que aprendas a corregir esos pasos que a veces dan respuestas inesperadas...

Por lo que dices, a lo mejor es necesario definir el CurrentY en todas las columnas, y tienes que poner

Printer.CurrentY = VerticalMargen + (ContarFila - 1) * nIncrem

antes de cada Printer.CurrentX...

Prueba a ver si es ése el problema...

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion