This is a final product off a few of my VBA Macro's added together for a project I was working on
Public WithEvents App As Word.Application
Private Sub App_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
Dim bPrintBackgroud As Boolean
bPrintBackgroud = Options.PrintBackground
Options.PrintBackground = False
Application.DisplayAlerts = wdAlertsNone
Cancel = True
Call FilePrint
Application.DisplayAlerts = wdAlertsAll
Options.PrintBackground = bPrintBackgroud
ActiveDocument.Saved = False
If ActiveDocument.Saved = False Then ActiveDocument.Save
End Sub