Макрос вывода документа на печать

Для того чтобы начать запись макроса, выполните команду Сервис/Макрос/Начать запись. Появится диалоговое окно Запись макроса (рис. 4.11.). Если это первый записываемый макрос в открываемой книге, то тогда в поле Имя макроса будет указано его имя - Макрос1.

Рис. 4.11. Диалоговое окно Запись макроса

Многие пользователи не изменяют имя макроса и через некоторое время может возникнуть недоразумения - какую операцию выполняет этот макрос. Поэтому сразу измените его имя на ПечатьЛицевойСтороны. Имя макроса должно начинаться с заглавной буквы и между элементами текста имени не должно быть пробелов.

В поле Сочетание клавиш введите букву на английском языке, например, "z" (рис. 4.12.). Это позволит сразу же после записи макроса, нажав на комбинацию клавиш [Ctrl+z] запустить макрос на автоматическое выполнение записанной операции.

В поле Описание будет зафиксирована дата создания макроса и при желании в это поле с клавиатуры введите краткое описание задачи макроса, например, Предназначен для печати лицевой стороны командировочного удостоверения.

В раскрывающемся списке Сохранить в находятся:

• Личная книга макросов;

• Новая книга;

• Эта книга;

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

Рис. 4.12. Диалоговое окно Запись макроса после внесения изменений в поля Имя макроса, Описание и Сочетание клавиш

После нажатия на кнопку ОК или клавишу Enter Excel начинает запись макроса, для чего фиксирует все действия пользователя, независимо от того, правильны ли они. Фиксация действий производится на языке кода VBA и будет осуществляться до остановки записи. Для остановки записи предназначена появляющаяся после начала записи кнопка Остановка (рис. 4.13.).

Рис. 4.13. Кнопка Остановка

Для записи кода действий, выполняемых макросом, последовательно выполните процедуры по выводу на печать лицевой стороны командировочного удостоверения:

• выполните команду Файл/Печать;

• в появившемся диалоговом окне Печать в области Печатать введите номера страниц с 1-й по 1-ю и нажмите кнопку ОК;

• для остановки записи макроса нажмите кнопку Остановка или выполните команду Сервис/Макрос/Остановка записи.

Для записи макроса печати оборотной стороны командировочного удостоверения нужно проделать аналогичную операцию по выводу на печать страницы 2.

Просмотр записанного макроса

Просмотр записанного макроса заключается в просмотре непосредственно сгенерированного текста кода VBA при его записи. Для этого, выполнив команду Сервис/Макрос/Редактор Visual Basic или нажав комбинацию клавиш [Alt+F11], откройте приложение Microsoft Visual Basic (рис. 4.14.).

Рис. 4.14. Приложение Microsoft Visual Basic с записанными макросами вывода на печать лицевой и обратной стороны документа

При запуске Редактора Visual Basic в этом приложения присутствуют три основных окна:

• окно проекта;

• окно свойств;

• окно программы.

Окно проекта

Окно проекта расположено слева вверху (рис. 4.14.) и содержит несколько папок. В нашем случае имеются папка Microsoft Excel Объекты, (рис. 4.15.) в которой находятся объекты, с которыми производятся действия:

• Лист1 (КомандировочноеУдостоверение);

• Лист2 (ЖурналРегистрацииКУ);

• ЭтаКнига (в которой записаны эти макросы).

Вторая папка - Модули, в которой находится элемент Модуль1 (рис. 4.14.), содержащий записанные макросы вывода на печать 1-й и 2-й страницы.

При создании диалоговых окон и форм может находиться и третья папка - Формы, но в этой книге она рассмотрена не будет.

Окно проекта предназначено для управления различными элементами проекта VBA и открывается с помощью команды Вид/Окно проекта.

Рис. 4.15. Окно проекта

Если обратиться к окну проекта, показанному на рис. 4.15. то в объекте Модули находится один элемент Модуль1. Это тот элемент, который создан автоматически при записи макросов вывода документов на печать.

Окно свойств

Окно свойств находится в левом нижнем углу (рис. 4.14.).

В окне свойств перечисляются характеристики элементов проекта. Для изменения свойств элемента, выделите его в окне проекта и тогда его характеристики отобразятся в окне свойств. Если выделить элемент Модуль1, то в окне свойств отобразится его имя: Модуль1. Для изменения имени модуля в окне свойств измените значение свойства Name, введя новое имя - Печать (рис. 4.16.).

Рис. 4.16. Окна Проектов и Свойств с переименованным элементом Модуль1 в элемент Печать

Окно программы

Окно программы самое большое и находится справа (рис. 4.14.).

Именно в нем происходит запись текста макроса на языке Visual Basic of Application. Окно программы имеет два режима просмотра:

• представление полного модуля;

• представление процедуры.

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

В режиме представления процедуры отображается только один макрос. Для перехода к следующему макросу, его имя нужно выбрать в раскрывающемся списке в верхней части окна программы или воспользоваться клавишами [Ctrl +Page Up] и [Ctrl+Page Down].

В режиме представления в окне программы находятся все макросы, в записанной последовательности. На рис. 4.14. показан режим представления.

Исследование записанного макроса

Ознакомимся с кодом VBA макроса ПечатьЛицевойСтороны. Если окно программ закрыто, то для просмотра макроса в окне проекта активизируйте двойным нажатием на правую кнопку мыши элемент Печать объекта Модули.

Текст макроса в окне программы содержит следующие элементы (рис. 4.14.):

• ключевые слова Sub и End Sub, означающие начало и конец текста макроса, шрифт которых выделен синим цветом

• имя макроса, которое следует за ключевым словом Sub начала макроса;

• комментарии, шрифт которых выделен зеленым цветом;

• код VBA или непосредственно записанные действия, которые выполняет макрос.

Комментарии. В нашем примере это те данные, которые вводились в диалоговое окно Запись макроса (рис. 4.12.). Строка комментария предназначена для описания действий и начинается с апострофа. Удаление комментариев никоим образом не влияет на выполнение макроса. Более подробно комментарии будут рассмотрены далее.

И, наконец, код записанных действий, выполняемых макросом:

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1

говорит о том, что с активного окна выделенного (активного) рабочего листа отправить на печать страницы с 1-й по 1-ю в количестве одной копии.

Текст макроса, который начинается и заканчивается ключевыми словами Sub и End Sub, называется подпрограммой или процедурой, что одно и то же.