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

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

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

Следует отметить, что надстройка диспетчера отчетов в последний раз распространялась с Excel 2002. Если вы используете Excel 2003, вы все равно можете использовать диспетчер отчетов. В этой статье базы знаний объясняется, как его использовать:

http://support.microsoft.com/kb/873209

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

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.

Этот совет (2187) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

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