Execute VBA before printing

Peltz · #1 01-25-2018, 02:35 AM

Hello.

I'm trying to open a messagebox prompting a yes/no question when someone presses the print-icon in Word 2013.

This is the code I've written:

Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)Dim Result As Long
Result = MsgBox("Text", vbYesNo)
If Result = vbNo Then
Exit Sub
Else
ActiveDocument.PrintOut
End If
End Sub
Sub FilePrintDefault()
Dim Result As Long
Result = MsgBox("Text", vbYesNo)
If Result = vbNo Then
Exit Sub
Else
ActiveDocument.PrintOut
End If
End Sub

However, I can't get the code to fire. Some input on how to get the code to fire would be much appreciated.

Thanks

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