Si tiene una hoja de trabajo grande, puede imprimirla en «partes»

y variar automáticamente la información contenida en el encabezado o pie de página de cada parte. No hay una forma intrínseca de hacer esto en Excel; el mejor enfoque es una macro para hacer lo siguiente:

  1. Establezca el área de impresión según un rango con nombre.

  2. Establezca el encabezado o pie de página en función de otro rango con nombre.

  3. Imprime el área de impresión.

  4. Repita los pasos del 1 al 3 para cada área de impresión deseada.

Tenga en cuenta que estos pasos requieren el uso de rangos con nombre. Puede tener un rango con nombre para cada parte de la hoja de trabajo que desea imprimir y un rango con nombre (que sería una sola celda) que representa la información del encabezado o pie de página que desea para cada área de impresión. La siguiente macro implementará los pasos anteriores:

Sub PrintRegions()

Dim x As Integer

'Change the dimension of the arrays to equal the number '   of printing areas you have     Dim Region(4) As String     Dim Head(4) As String

'Fill this array with the names of the ranges to be printed     Region(1) = "North"

Region(2) = "South"

Region(3) = "East"

Region(4) = "West"



'Fill this array with the names of the ranges to be in the header     Head(1) = "NorthHead"

Head(2) = "SouthHead"

Head(3) = "EastHead"

Head(4) = "WestHead"



For x = 1 To UBound(Region)

ActiveSheet.PageSetup.PrintArea = Range(Region(x)).Address          ActiveSheet.PageSetup.LeftHeader = Range(Head(x)).Value          ActiveWindow.SelectedSheets.PrintOut Copies:=1     Next End Sub

Este ejemplo imprime solo cuatro áreas de una hoja de trabajo. Estas áreas se denominan rangos: norte, sur, este y oeste. De manera similar, los rangos con nombre, que en realidad son celdas individuales, que se usan para la parte izquierda de los encabezados son NorthHead, SouthHead, EastHead y WestHead.

_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 (2058) 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-Dynamic_Headers_and_Footers [Dynamic Headers and Footers].