I am using the below code to print to specific printers. I cannot rely on the user's default printer, becuase that printer is often not in color(which the doc requires). The code works for Excel worksheets, but now for the specified word doc. What do I need to change to get this to print to the specified printer?
Sub printtest() Dim objWord As Word.Application Dim doc As Word.Document Set objWord = New Word.Application Set doc = objWord.Documents.Open(Filename:="S:\STATEMENT.DOCX", Visible:=True) Dim sCurrentPrinter As String sCurrentPrinter = ActivePrinter ActivePrinter = "Xerox Phaser 8560DT PS3 RSN14_XX8560P" & Sheets("inputs").Range("b8") & " on Ne" & Sheets("inputs").Range("g41") & ":" doc.PrintOut Copies:=1, Collate:=True doc.Close False objWord.Quit Set doc = Nothing Set objWord = Nothing End Sub
Bookmarks