Como imprimir rodapé na última página apenas no Excel?
Por padrão, com o built-in Cabeçalho rodapé recurso do Excel, você pode facilmente adicionar rodapés na parte inferior de cada página impressa em uma planilha. Se você deseja adicionar um rodapé na última página impressa apenas em uma planilha, como pode fazer? Este tutorial fornece um script VBA para ajudá-lo a realizar esta tarefa passo a passo.
Imprimir rodapé na última página somente com código VBA
Execute o seguinte código VBA para imprimir um rodapé personalizado na última página impressa somente no Excel.
1. Abra a planilha que deseja imprimir com um rodapé personalizado exibido apenas na última página impressa.
2. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
3. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie o seguinte código VBA no Módulo (Código) janela.
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
Note: No código, substitua este conteúdo "Digite suas informações de rodapé aqui" com suas próprias informações de rodapé.
4. aperte o F5 chave para executar o código.
Em seguida, a planilha ativa será impressa com o rodapé personalizado inserido apenas na última página impressa.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!