I was going to write code for FilePrint but that doesn't take care of the
Print button on the Standard toolbar.  I am now trying to create code for
DocumentBeforePrint so that I can run some code.  I have tried to follow
the Using Events with the Application Object and DocumentBeforePrint Event
help but it is still allowing me to print the document when there should be
errors, it isn't hitting the DocumentBeforePrint event.  Here is the Event
Class Module.

Public WithEvents wApp As Word.Application

Private Sub wApp_DocumentBeforePrint(ByVal Doc As Document, Cancel As
Boolean)
       
   Dim UserResponse As Integer
   
   UserResponse = MsgBox("You need to Save before Print, do you want to
Save now?", vbYesNo)
   
   If UserResponse = vbNo Then
       Cancel = True
   End If
   
   If UserResponse = vbYes Then
          ' vSave is defined in InitializeVariables Macro so it can be
used by multiple Macros / Modules
          Dim Save_Completed As String
       
          ' Final Processing (includes Validation)
          Application.Run "FinalProcessing"
         
          ' Do NOT Create OutLook Task  OR  Save Document
          If vSave = "No" Then
              Cancel = True
              GoTo NoPrint
          End If
         
          ' If no Special Condition entered, fill in "None"
          If ActiveDocument.FormFields("SpclCond").Result = "" Then
              ActiveDocument.FormFields("SpclCond").Result = "None"
          End If
       
          ' Fill in Invoice Information
          Application.Run "FillInvoiceInfo"
         
           ' Save Document
           If Len(ActiveDocument.Path) <> 0 Then          ' Document has
been Saved before
              ActiveDocument.Save
           Else
' Document has NOT been Saved before
             Save_Completed = Dialogs(wdDialogFileSaveAs).Show
              If Save_Completed = False Then
                  Cancel = True
                  GoTo NoPrint
              End If
          End If
        End If      ' Response = Yes (User wants to Save)

NoPrint:

End Sub

I also have the following module:

Sub Register_Event_Handler()
   
   ' Initialize an Instance of the Event Class Module so that Document
Before Print is Executed
   Dim PrintEvent As New EventClassModule
   
   Set PrintEvent.wApp = Word.Application

End Sub

When the document is opened I have a macro that does some initialization
including:
       Application.Run "Register_Event_Handler"