Венди хочет включить номера страниц в заголовок распечатки своего рабочего листа, но с изюминкой — страница 21A на странице 1, страница 21B на странице 2, страница 21C на странице 3 и т. Д. Она задается вопросом, как создать такую ​​нумерацию страниц. схема.

Есть несколько способов решения этой проблемы, и все они включают использование макросов. Если вы действительно хотите распечатать все листы в текущей книге, и ни один из этих листов не превышает одной страницы (при печати), то следующий макрос установит центральную часть заголовка в соответствии с запросом:

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

Обратите внимание, что макрос фактически ничего не печатает; все, что он делает, — это изменяет информацию заголовка. Если вы действительно хотите распечатать только текущий рабочий лист, и для этого рабочего листа потребуется несколько страниц для распечатки, то следующее должно работать нормально:

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

Этот макрос вычисляет страницы на основе положения горизонтального (HPageBreaks) и вертикального (VPageBreaks) разрывов страницы на распечатке.

Вы также можете попробовать просто работать с коллекцией Pages следующим образом:

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

Обратите внимание, что независимо от выбранного вами подхода, вы столкнетесь с проблемами, если для распечатки потребуется более 26 страниц.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (12548) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365.