Como imprimir várias cópias com números de página em sequência?

Você já tentou imprimir várias cópias de uma planilha com números de página em sequência? Isso significa imprimir 10 cópias de uma planilha e preencher a célula A1 na 1ª cópia com 001, na 2ª cópia com 002…, e na 10ª cópia com 010. No Excel, não há um recurso interno para isso, mas neste artigo, vou apresentar um código de macro para ajudá-lo a imprimir rapidamente várias cópias com números de página sequenciais.

Imprimir cópias com números diferentes usando o código VBA

Imprimir cópias com números diferentes usando o código VBA

Siga os passos abaixo para imprimir várias cópias de uma planilha com números sequenciais usando o código VBA.

1. Ative a planilha que deseja imprimir e pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o código abaixo no script do Módulo. Veja a captura de tela:

VBA: Imprimir cópias com números de página em sequência.

Sub PrintCopiesWithNumbers()
'UpdatebyEntendoffice20161031
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = 1 To 10
        Range("A1").Value = "'00" & i
       ActiveSheet.PrintOut
    Next i
    Application.ScreenUpdating = True
    MsgBox "Total printed copies: " & (i - 1), vbInformation, "Kutools for Excel"
End Sub

Observação: no código, A1 é a célula onde você deseja colocar o número da sequência, 1 Para 10 indica que serão impressas 10 cópias, e "'00" & I é o formato da sequência, você pode alterá-los conforme necessário.

3. Pressione F5 para executar o código. Um diálogo aparecerá, confirmando que 10 cópias serão impressas. Clique OK para fechar o diálogo, e cada cópia impressa terá seu próprio número de sequência.