Макросы

Что делает макрос

Это очень просто. Все, что нам нужно сделать - это выбрать листы, которые мы хотим напечатать. Затем мы используем метод печати, чтобы запустить. Все листы, которые вы выбрали, печатаются на одном дыхании.

Код макроса

1. Sub Macros25a()
2. 'Печать определенных листов
3.    ActiveWorkbook.Sheets(Array("Лист1", "Лист3", "Лист5")).PrintOut Copies:=1
4. End Sub

Хотите напечатать все рабочие листы в книге? Это еще проще.

1. Sub Macros25b()
2. 'Печать всех листов
3. ActiveWorkbook.Worksheets.PrintOut Copies:=1
4. End Sub

Как использовать

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

1. Активируйте редактор Visual Basic, нажав ALT + F11
2. Щелкните правой кнопкой мыши в окне проекта.
3. Выберите Insert➜Module
4. Введите или вставьте код во вновь созданном модуле. Вам, вероятнее всего, понадобиться изменить имя листа.