Если у вас большой рабочий лист, вы можете распечатать его «частями»

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

  1. Задайте область печати на основе именованного диапазона.

  2. Установите верхний или нижний колонтитул на основе другого именованного диапазона.

  3. Распечатайте область печати.

  4. Повторите шаги с 1 по 3 для каждой желаемой области печати.

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

Sub PrintRegions()

Dim x As Integer

'Change the dimension of the arrays to equal the number '   of printing areas you have     Dim Region(4) As String     Dim Head(4) As String

'Fill this array with the names of the ranges to be printed     Region(1) = "North"

Region(2) = "South"

Region(3) = "East"

Region(4) = "West"



'Fill this array with the names of the ranges to be in the header     Head(1) = "NorthHead"

Head(2) = "SouthHead"

Head(3) = "EastHead"

Head(4) = "WestHead"



For x = 1 To UBound(Region)

ActiveSheet.PageSetup.PrintArea = Range(Region(x)).Address          ActiveSheet.PageSetup.LeftHeader = Range(Head(x)).Value          ActiveWindow.SelectedSheets.PrintOut Copies:=1     Next End Sub

В этом примере печатаются только четыре области рабочего листа. Эти области называются диапазонами: север, юг, восток и запад. Точно так же именованные диапазоны — которые на самом деле представляют собой одиночные ячейки — используются для левой части заголовков: NorthHead, SouthHead, EastHead и WestHead.

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

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

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

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

Этот совет (10848) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Dynamic_Headers_and_Footers [Динамические верхние и нижние колонтитулы].