Vba to print to 2 network printers

[Bub_the_Zombie]

Greetings Excel Gurus!

I have searched around most of the morning to try and solve this question before jumping to the boards.

I am trying to print sheet 2, to two different network printers. Can someone please help me with this code.

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
    Dim WS As Worksheet
    
    Set WS = Sheets("SHEET 2")
    Application.ActivePrinter = ("[URL="file://\\BHSDC002.BHS.LOCAL\WB-MHPHP"]\\BHSDC002.BHS.LOCAL\WB-MHPHP[/URL]")
    WS.PrintOut Copies:=1
    Application.ActivePrinter = ("[URL="file://\\BHSDC002.BHS.LOCAL\E3-PA01-HPLJ3015"]\\BHSDC002.BHS.LOCAL\E3-PA01-HPLJ3015[/URL]")
    WS.PrintOut Copies:=1
    
    Application.ScreenUpdating = True
End Sub

The error message is
Run-time error'1004':
Method"ActivePrinter" of object"_Application" failed
Then this gets highlighted in the VBA code

Application.ActivePrinter = ("[URL="file://\\BHSDC002.BHS.LOCAL\WB-MHPHP"]\\BHSDC002.BHS.LOCAL\WB-MHPHP[/URL]

Thankful for any help

 

[Sektor]

Swap the lines with printers to see whether second printer is found.

 

[Bub_the_Zombie]

I tried switching around the code and still got the error message.

Note that I only put one printer in the code as to not spam another department while I experiment.

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
    Dim WS As Worksheet
    Set WS = Sheets("SHEET 2")
    
    WS.PrintOut Copies:=1
    Application.ActivePrinter = ("[URL="file://bhsdc002.bhs.local/WB-MHPHP"]\\BHSDC002.BHS.LOCAL\WB-MHPHP[/URL]")
    
    Application.ScreenUpdating = True
End Sub

 

[Sektor]

May be this link would help.