Перехват печати 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.071 из 5
Похожие ответы