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
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
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.