Как автоматически запускать макрос перед печатью в Excel?
Есть ли простой и надёжный способ автоматически запускать макрос при печати листа или всей книги в Excel?
Автоматический запуск макроса перед печатью с помощью кода VBA
Автоматический запуск макроса перед печатью с помощью кода VBA
Вот простой код, который поможет вам решить эту задачу в Excel. Следуйте инструкциям ниже:
1. Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
2. Затем дважды щёлкните элемент ThisWorkbook в разделе VBAProject, чтобы открыть пустой модуль, и скопируйте в него приведённый ниже код:
Код VBA: запуск макроса перед печатью листа или книги:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call MyMacro
End Sub

Примечание: в приведённом выше коде замените имя макроса на то, которое вам нужно.
3. После этого закройте окно с кодом. Теперь, когда вы нажмёте кнопку Печать, чтобы распечатать лист или книгу, указанный макрос будет выполнен в первую очередь; после завершения выполнения кода лист или книга будут немедленно напечатаны.
Связанные статьи:
Как запускать макрос при изменении значения ячейки в Excel?
Как запускать макрос в зависимости от значения ячейки в Excel?
Как запустить макрос в зависимости от значения, выбранного из выпадающего списка в Excel?
Как запустить макрос по щелчку на гиперссылке в Excel?
Как запускать макрос при выборе листа в книге?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек