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 lo prefiere, puede crear una macro que imprima 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 (12101) se aplica a Microsoft Excel 2007, 2010, 2013 y 2016.

Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

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