Hola, necesito imprimir 50 planillas iguales pero numeradas, esa numeración tiene que ser correlativa.
Al alguna forma que al imprimir automáticamente esta numeración aumente correlativamente?
Gracias
Ola @r-j-g, sea bienvenido al Grupo.
Macro considerando la celda de la numeración de página en la primera hoja de cálculo en la celda C2.
Sub ImprimirPaginas
Dim pgInicial As Long
Dim pgFinal As Long
Dim pgQtd As long
pgInicial = InputBox ("Introduzca el número de la primera página", "Página Inicial")
pgFinal = InputBox ("Escriba el número de la última página", "Página final")
pgQtd = pgFinal - pgInicial + 1
While pgInicial <= pgFinal
GlobalScope.BasicLibraries.LoadLibrary("Tools")
oSheet=ThisComponent.Sheets(0) '<====================== Número de hoja de cálculo = 0 es la primera
ChangeValueofRange (oSheet, "C2:C2", pgInicial) '<==================== es el área o la celda: celda
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:PrintDefault", "", 0, Array())
Wait 1000
pgInicial = pgInicial + 1
Wend
MsgBox ("Todas las páginas ( " & pgQtd & " ) se han enviado a la impresora")
End Sub
ATENCIÓN: Si desea dar más detalles a su pregunta, utilice edit en la pregunta o add a comment abajo. Agradecido.
Si la respuesta atendió su necesidad, por favor, haga clic en la bolita 
a la izquierda de la respuesta, para finalizar la gunta.