Перехват печати vba word
Формулировка задачи:
можно ли как то перехватить событие печати?
на подобии примера, только с печатью.
Ну или может у кого нибудь будут мысли.... Хотелось бы сделать програмную проверку при печати.
То есть если имя файла соответствует-х, ищем то то... если ничего не нашли, то продолжаем печать. Если нашли, предупреждаем, что есть ошибки и останавливаем печать. Или для этого легче написать макрос на печать? а его уже как нибудь вшить в ворд, что бы печатал он этой командой, так можно?
Решение задачи: «Перехват печати vba word»
textual
Листинг программы
Private WithEvents wdApp As Word.Application Private Sub Document_Open() Set wdApp = Application End Sub Private Sub wdApp_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean) Cancel = MsgBox("Отменить печать", vbYesNo + vbQuestion, Doc.Name) = vbYes End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д