VBA/Excel/Access/Word/Word/Word Document Print

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

setting the Range and Pages arguments of the PrintOut method

 
Sub Main()
    Dim wdApp As Word.Application
    Set wdApp = GetObject(, "Word.Application")
    wdApp.ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:="2"
End Sub