Microsoft Office Forums - View Single Post

gmayor · 01-26-2018, 09:38 PM

You need two macros to intercept the Print commands in the document template e.g.

Code:

Sub FilePrintDefault()
Dim Result As Long
    Result = MsgBox("Text", vbYesNo)
    If Result = vbNo Then
        Exit Sub
    Else
        ActiveDocument.PrintOut
    End If
End Sub

Sub FilePrint()
Dim Result As Long
    Result = MsgBox("Text", vbYesNo)
    If Result = vbNo Then
        Exit Sub
    Else
        ActiveDocument.PrintOut
    End If
End Sub

However it will only work if the user has access to the template with the macros.