¿Cómo imprimir el pie de página en la última página solo en Excel?

Por defecto, con el integrado Encabezado y pie de página función de Excel, puede agregar fácilmente pies de página en la parte inferior de cada página impresa en una hoja de trabajo. Si desea agregar un pie de página a la última página impresa solo en una hoja de trabajo, ¿cómo puede hacerlo? Este tutorial proporciona un script de VBA para ayudarlo a realizar esta tarea paso a paso.

---

Imprimir pie de página en la última página solo con código VBA

Ejecute el siguiente código VBA para imprimir un pie de página personalizado en la última página impresa solo en Excel.

1. Abra la hoja de trabajo que desea imprimir con un pie de página personalizado que se muestra solo en la última página impresa.

2. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

3. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie el siguiente código VBA en el Módulo (Código) ventana.

Código VBA: Imprimir pie de página solo en la ú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:: En el código, reemplace este contenido "Escriba su información de pie de página aquí" con su propia información de pie de página.

4. presione el F5 clave para ejecutar el código.

Luego, la hoja de trabajo activa se imprimirá con el pie de página personalizado insertado solo en la última página impresa.