Word VisualBasic Script

Sub main()
    Dim wdApp As Word.Application
    Set wdApp = GetObject(, "Word.Application")
    wdApp.ActiveDocument.PrintOut
End Sub