¿Cómo aplicar diferentes encabezados o pies de página en cada página de una hoja de cálculo de Excel?

Por defecto, 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 una hoja de trabajo? El método en 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 VBA puede ayudarte a aplicar diferentes encabezados o pies de página en cada página de una hoja de trabajo. Por favor, sigue los siguientes pasos.

1. Presiona simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego copia y pega el siguiente código VBA en la ventana de Código. Ver captura de pantalla:

Código VBA: Aplicar 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. Presiona la tecla F5 para ejecutar el código. Luego aparecerá la ventana de Vista previa, haz clic en el botón Imprimir para comenzar a imprimir las páginas con diferentes encabezados o pies de página.

Nota: Si hay 4 páginas impresas especificadas en la hoja de trabajo, necesitarás hacer clic en el botón Imprimir cuatro veces para terminar toda la impresión.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!