Leonid preguntó si había alguna forma de establecer un color de fondo para el encabezado o pie de página de una página. La respuesta simple es que no existe tal capacidad en Excel. Sin embargo, hay un par de formas de solucionar el problema. Por ejemplo, si está utilizando Excel 2002 o Excel 2003, puede agregar un gráfico a un encabezado o pie de página. Con el gráfico correcto, puede hacer que parezca que el encabezado y el pie de página contienen color cuando, de hecho, es el gráfico el que contiene el color.

Otra opción es crear encabezados y pies de página «falsos». Si todo lo que desea hacer es tener un encabezado de color diferente, puede usar las primeras dos filas de la hoja de trabajo como encabezado. Puede formatear estas filas como desee, incluida la configuración del color de las filas. Luego, podría indicarle a Excel que repita esas filas en la parte superior de cada página de la impresión (en el cuadro de diálogo Configurar página para esto).

La repetición de filas para el área del pie de página se vuelve más problemática, ya que Excel no incluye una función que le permita repetir filas en la parte inferior de cada página. Es posible crear una macro para agregar filas para el encabezado y pie de página, pero da como resultado un cambio en la hoja de trabajo; es necesario agregar filas para los encabezados y pies de página falsos.

Como ejemplo, considere la siguiente macro. Se asume que desea bordes de una pulgada a la izquierda y a la derecha de la impresión y que desea imprimir solo 46 filas por página. Establece los márgenes y luego recorre la hoja de trabajo, agregando las filas de encabezado y pie de página falsos, según sea necesario. (Debido a que la macro ajusta el diseño de la hoja de trabajo, asegúrese de guardar su hoja de trabajo antes de ejecutar la macro).

Sub FakeHeaderFooter()

Dim LHeader As String     Dim CHeader As String     Dim LFooter As String     Dim CFooter As String     Dim CBottom As Integer     Dim CRow As Integer     Dim PageSize As Integer          LHeader = "Top Left"

CHeader = "Top Center"

LFooter = "Bottom Left"

CFooter = "Bottom Center"

PageSize = 46

With ActiveSheet.PageSetup         .PrintTitleRows = ""

.PrintTitleColumns = ""

.PrintArea = ""

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.LeftFooter = ""

.CenterFooter = ""

.RightFooter = ""

.LeftMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(0)

.BottomMargin = Application.InchesToPoints(0)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0)

.PrintHeadings = False         .Orientation = xlPortrait     End With

CBottom = Range("A16000").End(xlUp).Row

CRow = 1     Do Until CRow > CBottom         If CRow Mod PageSize = 1 Then             Rows(CRow).Select             Selection.Insert Shift:=xlDown             Selection.Insert Shift:=xlDown             CBottom = CBottom + 2

Cells(CRow, 1).Value = LHeader             Cells(CRow, 4).Value = CHeader             Range(Cells(CRow, 1), _               Cells(CRow, 8)).Interior.ColorIndex = 34             Range(Cells(CRow + 1, 1), _               Cells(CRow + 1, 8)).Interior.ColorIndex = xlNone             CRow = CRow + 2         ElseIf CRow Mod PageSize = PageSize - 1 Then             Rows(CRow).Select             Selection.Insert Shift:=xlDown             Selection.Insert Shift:=xlDown             CBottom = CBottom + 2

Cells(CRow + 1, 1).Value = LFooter             Cells(CRow + 1, 4).Value = CFooter             Range(Cells(CRow + 1, 1), _               Cells(CRow + 1, 8)).Interior.ColorIndex = 34             CRow = CRow + 2         Else             CRow = CRow + 1         End If     Loop

LastPageNumber = PageNumber + 1     LastRow = LastPageNumber * PageSize     If CBottom <> LastRow Then             Range(Cells(LastRow, 1), _               Cells(LastRow, 8)).Interior.ColorIndex = 34             Cells(LastRow, 1).Value = LFooter             Cells(LastRow, 4).Value = CFooter     End If

CBottom = Range("A16000").End(xlUp).Row

CRow = 2     Do Until CRow > CBottom         If CRow Mod PageSize = 1 Then             Cells(CRow, 1).PageBreak = xlManual         End If         CRow = CRow + 1     Loop End Sub

Para cambiar el número de líneas por página, simplemente cambie el valor asignado a la variable PageSize. También puede cambiar lo que aparece en el área de «encabezado» y «pie de página» cambiando lo que se asigna a las variables LHeader, CHeader, LFooter y CFooter.

_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 (3056) se aplica a Microsoft Excel 97, 2000, 2002 y 2003.