PrintUsingWordVbs

    ' PRINT A WORD DOCUMENT (ARG 0) TO PRINTER (ARG 1), THEN DELETE IT
    ' start Word
    Set WordApp = CreateObject("Word.Application")
    ' obtain command line arguments (file name and printer)
    Dim oArgs
    Dim doc
    Dim prt
    Set oArgs = Wscript.Arguments
    doc = oArgs.Item(0)
    prt = oArgs.Item(1)
    ' open the document
    WordApp.Documents.Open(doc)
    ' set printer
    WordApp.WordBasic.FilePrintSetup prt,,,1 
    ' print
    WordApp.ActiveDocument.PrintOut False
    ' close the document, quit word
    WordApp.ActiveDocument.Close False
    WordApp.Quit
    Set WordApp = Nothing
    ' delete the document
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.DeleteFile doc
    Set fs = Nothing

‘The parent page is PrintUsingWord.