Como imprimir um rodapé apenas na última página no Excel?
Por predefinição, com a funcionalidade incorporada «Cabeçalho e rodapé» do Excel, pode adicionar facilmente rodapés na parte inferior de cada página impressa de uma folha de cálculo. Mas e se quiser adicionar um rodapé apenas à última página impressa? Este tutorial fornece um script VBA para o ajudar a concluir esta tarefa passo a passo.
Imprimir rodapé apenas na Última Página com código VBA
Execute o seguinte código VBA para imprimir um rodapé personalizado exclusivamente na última página do documento no Excel.
1. Abra a folha de cálculo que pretende imprimir e defina um rodapé personalizado para aparecer apenas na última página.
2. Prima as teclas «Alt» + «F11» para abrir a janela do Microsoft Visual Basic for Applications.
3. Na janela «Microsoft Visual Basic for Applications», clique em «Inserir» > «Módulo» e, de seguida, copie o seguinte código VBA para a janela «Módulo (Código)».
Código VBA: Imprimir rodapé apenas na Última Página
Sub SetFooterOnLastPage()
'Updated by Extendoffice 20221024
Dim xCount As Long
Dim xWSh
xCount = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
Set xWSh = Application.ActiveSheet
With Application.ActiveSheet
.PageSetup.RightFooter = ""
If xCount > 1 Then
.PrintOut From:=1, To:=xCount - 1
End If
.PageSetup.RightFooter = "Type your footer information here"
.PrintOut From:=xCount, To:=xCount
End With
End Sub
Nota: No código, substitua o texto «Type your footer information here» pela sua própria informação de rodapé.
4. Prima a tecla «F5» para executar o código.
Em seguida, a folha de cálculo ativa será impressa com o rodapé personalizado inserido apenas na última página.
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