Visual Basic

Imports wrd = Microsoft.Office.Interop
Module Module1
    Sub Main()
        Dim moapp As wrd.Word.Application
        Dim odoc As wrd.Word.Document

        moapp = New wrd.Word.ApplicationClass().Application
        moapp.Visible = False

        odoc = moapp.Documents.Add("C:\Documents and Settings\9312323\Desktop\excelbug.doc")

        moapp.ActivePrinter = "\\N318416\PRINT068 NRG SP 4100N"
        'With moapp.ActiveDocument.PageSetup
        '    .FirstPageTray = 258
        '    .OtherPagesTray = 258
        'End With
        'moapp.Application.PrintOut(FileName:="", Range:=wrd.Word.WdPrintOutRange.wdPrintAllDocument, Item:= _
        '     wrd.Word.WdPrintOutItem.wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wrd.Word.WdPrintOutPages.wdPrintAllPages, _
        '     ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        '     False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        '     PrintZoomPaperHeight:=0)

        moapp.ActivePrinter = "\\N318416\PRINT019 NRG P7527n"
        odoc.Close(False)
        moapp.Quit()
    End Sub

End Module