I have a terms & conditions document that is in word form that I want to print out with a bid done in excel format. I have piecemealed together a macro that will open/print/close the relevant word document but I am having trouble getting both documents to print to the same printer. My macro I developed is
Code
Sub OpenWordPrintThenClose()
Dim objWord As Word.Application
Dim doc As Word.Document
Dim STDprinter As String
Set objWord = New Word.Application
Set doc = objWord.Documents.Open(Filename:="u:\test2.doc", Visible:=True)
STDprinter = Application.ActivePrinter
Application.ActivePrinter = "\\sbs\4501HousePCL on Ne11:"
' change printer
doc.PrintOut
Range("Print_area").PrintOut
doc.Close False
objWord.Quit
Set doc = Nothing
Set objWord = Nothing
Application.ActivePrinter = STDprinter
' change back to standard printer
End Sub
Display More
The excel document is printing to the correct printer but the word document continues to print to the default printer. This is my first ever post so I apologize if the format of the question is wrong and any suggestions to the format will be done. Thanks in advance.