DocumentBeforePrint for One Document Only

gmayor · #1 06-10-2016, 12:00 AM

The macro should prompt when any of the listed check boxes is unchecked. If all the listed check boxes must be checked before printing then instead of giving the user a choice, the warning can simply cancel the print process. e.g. change the main code to the following.

I don't get the failure to trigger the prompt on successive attempts at printing, with this code, assuming one of more of the named check boxes is unchecked. If they are all checked the document is printed.

Code:

Option Explicit
Public WithEvents appWord As Word.Application

Private Sub appWord_DocumentBeforePrint _
        (ByVal Doc As Document, _
         Cancel As Boolean)
Dim intResponse As Integer
Dim sBox As String: sBox = ""
    Select Case False
        Case ThisDocument.CheckBox1.Value: sBox = "CheckBox 1"
        Case ThisDocument.CheckBox2.Value: sBox = "CheckBox 2"
        Case ThisDocument.CheckBox3.Value: sBox = "CheckBox 3"
    End Select
    If Not sBox = "" Then
        intResponse = MsgBox(sBox & " has not been checked!", vbCritical)
        If intResponse = vbOK Then Cancel = True
    End If
lbl_Exit:
    Exit Sub
End Sub

Note you can use more meaningful check box names and/or messages associates with each box.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
split word document based on bookmarks with each new document title of the bookmark	megatronixs	Word VBA	9	09-05-2020 02:29 PM
Adding a link into a word document that when pressed, takes user to a page within the same document	yan89	Word	1	04-29-2016 01:54 PM
Vba code to save document as pdf using document property text and rename folder.	staicumihai	Word VBA	1	12-21-2015 07:39 AM
Run-time error '1004': Document not saved. The document may be open...	doctor_who12	Excel Programming	1	01-22-2014 04:47 PM
DocumentBeforePrint not working	maruapo	Drawing and Graphics	0	06-15-2010 12:31 PM