Haz tu Pregunta
0

Aumentar numeración de celda al imprimir en Calc

preguntado 2019-05-09 19:48:13 +0200

Imagen Gravatar de r-j-g

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

edit re-etiquetar marcar como ofensivo cerrar fusionar delete

1 Responder

Ordenar por » viejos nuevas más votado
0

respondido 2019-05-11 19:12:02 +0200

updated 2019-05-12 13:03:59 +0200

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 Descrição da imagem a la izquierda de la respuesta, para finalizar la gunta.

edit marcar como ofensivo delete enlace mas
Ingresa/Regístrate para Contestar

Herramientas de Preguntas

1 seguidor

Estadisticas

Preguntado: 2019-05-09 19:48:13 +0200

Visto: 8 veces

Ultima actualización: May 12