¿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
Note: 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.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!