Cita:
Iniciado por Kruzado 
prueba esto :
numeropagina = 0
While numeropagina < 1255
etiqueta = ""
For x = 5 To 1 Step -1
etiqueta = etiqueta & " " & Format(numeropagina + x, "00000")
Next x
MsgBox etiqueta
numeropagina = numeropagina + 5
Wend
QUe hace?
en la variable etiqueta guarda las cadenas de numeros que tu necesitas, el ejemplo los imprime como mensaje, tu debes ocuparlas donde necesites con el formato que requieras,
crea un formulario y pega el codigo en un boton, lo ejecutas y lo pruebas, si te sirve, la raja
saludos!!!!
Muyyy bueno, tu si que cachaste bién la idea, te lo agradezco muchisimo.
ahora estoy bien iluminado
estoy muy agradecido
ahora esto lo aplicare al objeto printer
saludos