Ниже мы рассмотрим программу в Excel VBA, который создает колонтитул перед печатью книги.

Создать Workbook BeforePrint событие. Код добавлен в Workbook BeforePrint Событие будет выполняться Excel VBA, прежде чем напечатать книгу.

  1. Откройте редактор Visual Basic.

  2. Дважды нажмите на эту книгу в окне проекта.

  3. Выберите рабочую книгу из списка слева раскрывающегося списка. Выберите BeforePrint справа в раскрывающемся списке.

Workbook BeforePrint Event in Excel VBA

  1. Для создания колонтитула, добавьте следующую строку кода в Workbook BeforePrint Событие:

ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName

Примечание: Объект PageSetup содержит все атрибуты настройки страницы (левые нижние колонтитулы, нижнее поле, размера бумаги, левое поле, и так далее) в качестве свойств.

  1. Проверьте программу, напечатав вашу книгу.

Результат:

Footer