Hi Stanza_chad,
Your macro should simply print the document without invoking the Print dialogue. It also has no effect on that dialogue.
Ordinarily, if you print a document containing comments, you'll get a warning. The following modifications will suppress that warning:
Code:
Sub PrintDoc()
Dim bOption As Boolean
bOption = Options.WarnBeforeSavingPrintingSendingMarkup
Options.WarnBeforeSavingPrintingSendingMarkup = False
Application.PrintOut Range:=wdPrintAllDocument, _
Item:=wdPrintDocumentContent, Copies:=1
Options.WarnBeforeSavingPrintingSendingMarkup = bOption
End Sub