¿Cómo aplicar diferentes encabezados o pies de página en cada página en una hoja de cálculo de Excel?
De forma predeterminada, al insertar un encabezado o pie de página en una hoja de trabajo, el contenido del encabezado o pie de página se aplicará a todas las páginas. Para muchas personas, diferentes páginas pueden tener diferentes contenidos en sus hojas de trabajo. Y tienden a distinguir estas páginas con el contenido del encabezado o pie de página después de imprimir la hoja de trabajo. ¿Cómo aplicar diferentes encabezados o pies de página en cada página de la hoja de trabajo? El método de este artículo puede ayudarte.
Aplicar diferentes encabezados o pies de página en cada página con código VBA
Aplicar diferentes encabezados o pies de página en cada página con código VBA
El siguiente código de VBA puede ayudarlo a aplicar diferentes encabezados o pies de página en cada página de una hoja de trabajo. Haz lo siguiente.
1. presione el otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicacioness ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie y pegue el siguiente código VBA en el Código ventana. Ver captura de pantalla:
Código VBA: aplique diferentes encabezados en cada página en Excel
Sub DifferentHeaderFooter()
Dim ws As Worksheet
Dim vLeft As Variant, vRight As Variant, xRg As Variant
Set ws = ActiveSheet
On Error Resume Next
vLeft = Array("First page", "Second page", "Third page", "fourth page")
xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")
Application.ScreenUpdating = False
For i = 0 To UBound(vLeft)
With ws.PageSetup
.PrintArea = xRg(i)
.LeftHeader = vLeft(i)
End With
ws.PrintPreview
Next i
Application.ScreenUpdating = True
ws.PageSetup.PrintArea = ""
End Sub
Notas:
3. presione el F5 clave para ejecutar el código. Entonces la Vista previa aparece la ventana, haga clic en el Imprimir para comenzar a imprimir las páginas con diferentes encabezados o pies de página.
Note: Si hay 4 páginas impresas especificadas en la hoja de trabajo, debe hacer clic en el Imprimir botón cuatro veces para terminar toda la impresión.
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!