Private WithEvents WordApp As Word.Application
Private Sub Document_Open()
Set WordApp = Word.Application
End Sub
Private Sub WordApp_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
'Cancel = True
End Sub
Можно ли как-то "перехватить" попытку распечатать документ Ворд? (Офис 2003)
Хорошо бы перед печатью проверять, вставлена ли нумерация страниц. А то несброшюрованные и ненумерованные страницы читать неудобно.
Скопируйте в модуль ThisDocument нужного документа весь нижеопубликованный код и используйте событие DocumentBeforePrint в своих интересах
Код:
Большущее спасибо!