Printing Multiple Documents

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.