Здесь один обходной путь на основе имен подпрограмм. Я не верю, что есть конкретное событие DocumentAfterPrint
, как вы хотите. Вот код:
Sub FilePrint()
'To intercept File > Print and CTRL-P'
MyPrintSub
End Sub
Sub FilePrintDefault()
'To intercept the Standard toolbar button'
MyPrintSub
End Sub
Sub MyPrintSub()
Dialogs(wdDialogFilePrint).Show
'Your code here, e.g:'
MsgBox "I am done printing."
End Sub
ОБНОВЛЕНИЕ: Обратите внимание на ошибки в ответе Уилла Рикардса ниже.