Cuando imprime una hoja de trabajo, puede hacer que Excel incluya una variedad de elementos en el encabezado o pie de página de la impresión. Una de las cosas que puede incluir es el número de página de la página que se imprime. Este número de página es bastante mundano: es el valor árabe de la página que se imprime, como en 1, 2, 3, etc.

Algunas personas pueden anhelar una forma de imprimir letras de página (A, B, C) en lugar de números de página (1, 2, 3). No hay una forma intrínseca de hacer esto en Excel. Sin embargo, puede desarrollar una macro que determine la letra que debe asociarse con una página y luego usar esa letra en el pie de página. La siguiente macro hace precisamente eso:

Sub LetterPageNums()

Dim sArr(27 * 26) As String     Dim iPages As Integer     Dim J As Integer, K As Integer

' Fill page letter array     ' "A", "B", "C", ...,"AA", "AB", etc.

For J = 0 To 26         For K = 1 To 26             If J > 0 Then                 sArr((J * 26) + K) = Chr(J + 64) & Chr(K + 64)

Else                 sArr(K) = Chr(K + 64)

End If         Next K     Next J

' Get count of pages in active sheet     iPages = ExecuteExcel4Macro("Get.Document(50)")



' Print worksheet, page by page     With ActiveSheet         For J = 1 To iPages             ' Set page letter             .PageSetup.CenterFooter = sArr(J)

' Print page(J)

.PrintOut From:=J, To:=J         Next J     End With End Sub

Primero, la macro calcula el equivalente en letras de los números de las páginas y los coloca en una matriz. En este caso, se calculan hasta 702 letras de página, lo que debería ser más que suficiente para cualquier trabajo de impresión. Las letras son de la A a la Z, luego de la AA a la AZ, de la BA a la BZ y de la ZA a la ZZ.

Luego, iPages se establece en el número de páginas de la hoja de trabajo. Finalmente, cada página se imprime individualmente, y la letra de la página se coloca en el pie de página central de la hoja de trabajo. Si desea que la letra de la página esté en un lugar diferente, utilice .LeftFooter o .RightFooter en lugar de la propiedad .CenterFooter. (También puede utilizar .LeftHeader, .CenterHeader y .RightHeader, si lo desea).

_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 (2126) 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-Changing_Page_Number_Format [Cambio de formato de número de página].