Una de las quejas de Excel desde hace mucho tiempo es que no tiene un método muy sólido para crear y administrar encabezados y pies de página.

Considere el siguiente escenario: desea imprimir su hoja de trabajo, pero solo tiene números de página que comienzan en la segunda página.

No existe un método intrínseco en Excel para manejar esta situación. Hay algunas soluciones alternativas; por ejemplo, puede poner su primera página en una hoja de trabajo (sin encabezados ni pies de página) y las páginas siguientes en una hoja de trabajo diferente (que incluye encabezados y pies de página). A continuación, puede imprimir las dos hojas de trabajo en una sola pasada y lograr su objetivo de manera eficaz.

Si tiene el Administrador de informes instalado, puede usarlo para armar diferentes informes basados ​​en la información en su hoja de trabajo.

El uso del Administrador de informes se ha tratado en otros números de ExcelTips. El complemento Administrador de informes se distribuyó por última vez con Excel 2002, pero aún puede usarlo en Excel 2003.

Sin embargo, ninguno de estos enfoques funciona para todas las situaciones. Por ejemplo, es posible que no pueda dividir su impresión en varias hojas de trabajo, o que no tenga mucha experiencia con el Administrador de informes (o no desee descargarlo e instalarlo). Si lo prefiere, puede crear una macro que imprimirá su hoja de trabajo como desee.

La siguiente macro, GoodPrint, imprimirá la primera página de una hoja de trabajo sin encabezados ni pies de página, y luego todas las páginas subsiguientes con normalidad.

Sub GoodPrint()

Dim hlft As String     Dim hctr As String     Dim hrgt As String     Dim flft As String     Dim fctr As String     Dim frgt As String

'save current header     hlft = ActiveSheet.PageSetup.LeftHeader     hctr = ActiveSheet.PageSetup.CenterHeader     hrgt = ActiveSheet.PageSetup.RightHeader

'save current footer     flft = ActiveSheet.PageSetup.LeftFooter     fctr = ActiveSheet.PageSetup.CenterFooter     frgt = ActiveSheet.PageSetup.RightFooter

'remove header and footer     With ActiveSheet.PageSetup         .CenterHeader = ""

.RightHeader = ""

.LeftHeader = ""

.CenterFooter = ""

.RightFooter = ""

.LeftFooter = ""

End With

'print page one     ActiveSheet.PrintOut 1, 1

'restore header and footer     With ActiveSheet.PageSetup         .LeftHeader = hlft         .CenterHeader = hctr         .RightHeader = hrgt         .LeftFooter = flft         .CenterFooter = fctr         .RightFooter = frgt     End With

'print the rest of the pages     ActiveSheet.PrintOut 2 End Sub

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2189) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Selective_Headers_and_Footers [Selective Headers and Footers].