print a document with all the default print settings
Sub main() Dim wdApp As Word.Application Set wdApp = GetObject(, "Word.Application") wdApp.ActiveDocument.PrintOut End Sub