Wendy quiere incluir números de página en el encabezado de su hoja de trabajo impresa, pero con un giro: página 21A en la página 1, página 21B en la página 2, página 21C en la página 3, etc. Se pregunta cómo hacer para crear tal numeración de páginas. esquema.

Hay algunas formas en las que puede abordar este problema, todas ellas relacionadas con el uso de macros. Si realmente desea imprimir todas las hojas de trabajo en el libro de trabajo actual y ninguna de esas hojas de trabajo tiene una longitud de una sola página (cuando se imprime), la siguiente macro establecerá la sección central del encabezado según lo solicitado:

Sub PageNums1()

Dim sheet As Worksheet     Dim J As Integer

J = 1     On Error Resume Next     For Each sheet In Worksheets         Sheets(J).PageSetup.CenterHeader = "Page 21" & Chr(64 + J)

J = J + 1     Next End Sub

Tenga en cuenta que la macro en realidad no imprime nada; todo lo que hace es cambiar la información del encabezado. Si realmente solo desea imprimir la hoja de trabajo actual y esa hoja de trabajo requerirá varias páginas en la impresión, entonces lo siguiente debería funcionar bien:

Sub PageNums2()

Dim X As Integer     Dim Y As Integer     Dim Z As Integer

Z = 1     For X = 1 To ActiveSheet.HPageBreaks.Count + 1         For Y = 1 To ActiveSheet.VPageBreaks.Count + 1             ActiveSheet.PageSetup.CenterHeader = _               "Page 21" & Chr$(64 + Z)

Worksheets.PrintOut Z, Z             Z = Z + 1         Next Y     Next X End Sub

Esta macro calcula las páginas según la posición de los saltos de página horizontales (HPageBreaks) y verticales (VPageBreaks) en la impresión.

También puedes intentar trabajar con la colección Pages, de esta manera:

Sub PageNums3()

Dim J As Integer

For J = 1 To ActiveSheet.PageSetup.Pages.Count         ActiveSheet.PageSetup.CenterHeader = "Page 21" & Chr(64 + J)

Worksheets.PrintOut J, J     Next J End Sub

Debe tener en cuenta que independientemente del enfoque que seleccione, tendrá problemas si la impresión requiere más de 26 páginas.

_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 (12548) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365.