Когда мы автоматизируем отчёты в Excel с помощью макросов, цель не просто сэкономить время, но и создать максимально плавный, удобный и надёжный процесс для конечного пользователя. Сегодня мы разберём, как добавить в отчёт функцию предварительного просмотра перед печатью, как настроить автоматическую отправку на принтер, и как защитить макрос от сбоев при нажатии «Отмена».
Разберём пошагово, с чёткой структурой, примерами кода и объяснениями.
📌 Часть 1: Предварительный просмотр перед печатью
Перед тем как отправить данные на принтер, часто хочется убедиться, как они будут выглядеть на бумаге. В Excel можно встроить команду, которая открывает предварительный просмотр отчёта прямо из макроса.
Предположим, у вас уже есть код, формирующий отчёт. Добавим к нему команду:
▸ Код VBA: запуск предварительного просмотра
Добавьте в конец макроса:
ActiveWindow.SelectedSheets.PrintPreview
Это откроет окно предварительного просмотра печати, где можно оценить внешний вид, прежде чем тратить бумагу и чернила.
Можно использовать это вкупе с автоматическим отображением листа:
Worksheets("Report").Visible = xlSheetVisible
Worksheets("Report").Activate
ActiveWindow.SelectedSheets.PrintPreview
Теперь пользователь сразу попадает на лист отчёта и видит, как он будет выглядеть при печати.
🔔 Кстати! Если ты часто работаешь с отчётами и хочешь автоматизировать ещё больше рутин, подписывайся на канал — впереди много полезных лайфхаков. И обязательно напиши в комментарии, используешь ли ты предварительный просмотр в работе или нет.
🖨️ Часть 2: Автоматическая отправка отчёта на принтер
Если вы уже уверены в макете и хотите миновать окно предварительного просмотра, можно сразу отправлять отчёт на печать. В этом случае используем метод PrintOut.
Пример с одной копией отчёта:
Worksheets("Report").Visible = xlSheetVisible
Worksheets("Report").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Это минималистичный и понятный способ: отчёт распечатается мгновенно, без всплывающих окон.
Если хотите задать больше параметров (например, печать с определённой страницы), вы можете явно прописать их через двоеточие и :=:
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=2
Такой подход более читаемый и надёжный, особенно при работе с другими людьми в команде.
🛑 Часть 3: Обработка отмены и исключений
Одна из самых раздражающих вещей при использовании макросов — это ошибка Run-time error '13': Type mismatch, возникающая при нажатии на кнопку Отмена в диалоговом окне InputBox.
Чтобы избежать этой ошибки, необходимо:
Шаг 1. Добавить обработку ошибок
On Error Resume Next
Это заставит макрос не падать при ошибке, а продолжать выполнение.
Шаг 2. Проверить, ввёл ли пользователь значение
Если пользователь нажал «Отмена», переменная останется пустой. Нам нужно проверить это и выйти из процедуры:
If myInput = "" Then Exit Sub
Объединённый код с защитой
On Error Resume Next
Dim myInput As String
myInput = InputBox("Введите пороговое значение:")
If myInput = "" Then Exit Sub
Теперь, даже если пользователь ничего не введёт и нажмёт «Cancel», макрос просто завершится без ошибок и криков.
✍️ Заключение: свяжем всё вместе
Теперь ваш макрос:
- принимает значение через InputBox;
- защищён от ошибок, если пользователь нажал «Отмена»;
- формирует отчёт;
- делает лист с отчётом видимым;
- либо открывает предварительный просмотр, либо сразу отправляет отчёт на печать.
▸ Финальный шаблон кода для печати с защитой от ошибок
Sub PrintReport()
On Error Resume Next
Dim myInput As String
myInput = InputBox("Введите пороговое значение:")
If myInput = "" Then Exit Sub
Worksheets("Report").Visible = xlSheetVisible
Worksheets("Report").Activate
ActiveWindow.SelectedSheets.PrintPreview ' или .PrintOut Copies:=1
End Sub
💬 Вопрос к вам:
Вы чаще используете предварительный просмотр или отправляете отчёты напрямую на принтер? Напишите в комментарии — хочется понять, как выстроить следующий урок: автоматизация форматирования или расширенные параметры печати?
Если статья оказалась полезной — поставьте лайк и подпишитесь на канал. Это помогает делать больше практичных гайдов, которые экономят вам часы рутины 💡