Como imprimir o rodapé apenas na última página no Excel?

Por padrão, com o recurso "Cabeçalho e rodapé" embutido 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é apenas na última página impressa em uma planilha, como pode fazer isso? Este tutorial fornece um script VBA para ajudá-lo a realizar essa tarefa passo a passo.

Imprimir rodapé apenas na última página com código VBA

Por favor, execute o seguinte código VBA para imprimir um rodapé personalizado apenas na última página impressa no Excel.

1. Abra a planilha que você deseja imprimir e defina um rodapé personalizado para aparecer apenas na última página.

2. Pressione as teclas "Alt" + "F11" para abrir a janela "Microsoft Visual Basic for Applications".

3. Na janela "Microsoft Visual Basic for Applications", clique em "Inserir" > "Módulo". Em seguida, copie o seguinte código VBA na 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

Observação: No código, substitua este conteúdo "Digite aqui suas informações de rodapé" pelas suas próprias informações de rodapé.

4. Pressione a tecla "F5" para executar o código.

Então, a planilha ativa será impressa com o rodapé personalizado inserido apenas na última página impressa.