Execute VBA before printing

gmayor · #2 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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Why does this Macro take so long to execute?	poetofpiano	Word VBA	3	09-30-2017 11:59 PM
Execute autocorrects?	KaiserD2	Word	6	04-03-2017 10:18 PM
Execute VBA on File Import	npalmer610	Word VBA	1	04-12-2016 06:01 PM
word 2010 mail merge execute twice	smaddi	Mail Merge	1	02-05-2012 02:45 AM
Find and Execute	cksm4	Word VBA	1	10-22-2011 11:36 PM