Como imprimir várias cópias com numeração de páginas sequencial?
Já se viu alguma vez numa situação em que precisa de imprimir várias cópias da mesma folha de cálculo, mas pretende que cada cópia tenha um número de página único e sequencial? Por exemplo, poderá precisar de 10 cópias de um formulário, com a célula A1 a exibir “001” na primeira impressão, “002” na segunda e assim sucessivamente até “010” na última. Esta abordagem revela-se especialmente útil em cenários como a emissão de faturas numeradas, bilhetes, formulários de encomenda ou qualquer outro lote onde o rastreio de cópias individuais seja essencial para fins organizacionais ou de auditoria.
Infelizmente, o Excel não oferece uma funcionalidade integrada que permita imprimir automaticamente várias cópias com numeração incremental numa célula específica. Editar manualmente a folha antes de cada impressão torna-se impraticável, especialmente quando são necessárias muitas cópias. Contudo, com uma macro VBA simples, é possível automatizar todo este processo — poupando tempo, eliminando erros manuais e garantindo que cada cópia receba um número único, exatamente como exigido.
Imprimir Cópias com números diferentes através de código VBA
Utilizar fórmulas do Excel e impressão manual
Imprimir Cópias com números diferentes através de código VBA
Imprimir Cópias com números diferentes através de código VBAEste método utiliza uma macro VBA para imprimir várias cópias de uma folha de cálculo, inserindo automaticamente números sequenciais numa célula especificada em cada impressão.
Siga estes passos para criar e executar rapidamente a macro:
1. Em primeiro lugar, ative a folha de cálculo que pretende imprimir. Em seguida, prima Alt + F11 para abrir a janela do editor Microsoft Visual Basic for Applications (VBA).
2. No editor do VBA, clique em Inserir > Módulo para adicionar um novo módulo. Copie e cole o código seguinte na janela do módulo. (Consulte a imagem para orientação visual.)
VBA: Imprima cópias com números de página sequenciais.
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
Notas e sugestões sobre os parâmetros:
- No código, a referência A1 indica a célula onde o número de sequência será apresentado. Se preferir outra célula, como B2, atualize a referência em conformidade.
- 1 To10especifica o número de cópias a imprimir (neste exemplo, 10). Pode alterar o «10» para qualquer outro número inteiro positivo, conforme necessário.
- «'00» & I formata o número de sequência para ser apresentado com três dígitos e zeros à esquerda (por exemplo, 001, 002, 003). Se pretender um formato diferente — como começar em 100 ou omitir os zeros à esquerda —, ajuste a cadeia de caracteres em conformidade.
- Antes de executar a macro, certifique-se de que a sua folha de cálculo está pronta e não contém dados na célula de destino que possam ser substituídos. Recomendamos que guarde o seu livro antes de avançar, pois as ações da macro não podem ser anuladas.
3. Com a sua folha de cálculo ainda ativa, prima F5 ou o botão Executar no editor VBA para executar o código. Aparecerá uma caixa de diálogo a notificar, por exemplo, que «serão impressas 10 cópias com Números Consecutivos». Clique em OK para avançar; a macro percorrerá automaticamente cada número, preencherá a sequência na célula designada e imprimirá a folha. Cada impressão será numerada de forma única, de acordo com as suas definições.
Utilizar fórmulas do Excel e impressão manual
Em cenários em que precisa apenas de um número limitado de cópias ou prefere evitar macros, pode usar a alça de preenchimento do Excel para gerar números sequenciais e, em seguida, imprimir manualmente cada linha. Este método é ideal quando necessita de numeração única para etiquetas, crachás ou formulários num lote de dimensão facilmente gerível.
1. Numa nova coluna (por exemplo, a coluna A), introduza o número de sequência inicial na primeira célula, como «001». Para isso, insira a seguinte fórmula na célula A1:
=TEXT(ROW(A1),"000")2. Arraste a alça de preenchimento para baixo até à linha correspondente ao número de cópias que pretende imprimir (por exemplo, até à linha 10 para obter 10 cópias). Cada célula irá mostrar o número sequencial seguinte, com zeros à esquerda.
3. Copie a linha inteira ou o conjunto de dados para uma nova folha para cada cópia necessária e utilize a função Imprimir do Excel para imprimir as folhas individualmente. Este método manual é ideal para lotes mais pequenos e oferece maior confirmação visual antes da impressão.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos