При создании рабочего листа, который в конечном итоге будет напечатан, вы можете захотеть использовать другой нижний колонтитул на первой странице вашего документа, чем на последующих страницах. Невозможно сделать это непосредственно в Excel, но вы можете использовать макрос для выполнения задачи.

Следующий макрос устанавливает нижние колонтитулы для рабочего листа в зависимости от того, что печатается. Фактически, он устанавливает нижние колонтитулы для первой страницы, а затем печатает эту страницу. Затем он устанавливает нижние колонтитулы для других страниц и печатает их.

Sub PrintSheet()

Dim sP1Left As String     Dim sP1Center As String     Dim sP1Right As String     Dim sP2Left As String     Dim sP2Center As String     Dim sP2Right As String

' Define first-page footers     sP1Left = "First page left"

sP1Center = "First page center"

sP1Right = "First page right"



' Define second-page footers     sP2Left = "Second page left"

sP2Center = "Second page center"

sP2Right = "Second page right"



' Set up and print first page     With ActiveSheet.PageSetup         .LeftFooter = sP1Left         .CenterFooter = sP1Center         .RightFooter = sP1Right     End With     ActiveSheet.PrintOut 1, 1

' Set up and print other pages     With ActiveSheet.PageSetup         .LeftFooter = sP2Left         .CenterFooter = sP2Center         .RightFooter = sP2Right     End With     ActiveSheet.PrintOut 2 End Sub

Чтобы использовать макрос, все, что вам нужно сделать, это изменить определения нижнего колонтитула.

Измените значения переменных в области «Определить нижние колонтитулы первой страницы» и «Определить нижние колонтитулы второй страницы», чтобы получить именно тот результат, который вам нужен.

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

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

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

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

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

Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Using_a_Different_Footer_on_Secondary_Pages [Использование другого нижнего колонтитула на дополнительных страницах].