Application.ActivePrinter = NetworkPrinter(“PS_Printer”)

The NetworkPrinter function tries to detect which port the printer is on and set the printer string accordingly. If the string doesn’t resolve to a proper printer (“PS_Printer on PS_Port”) it will use the default printer.

Alternatively you can of course set .ActivePrinter = “PS_Printer on PS_Port” directly – the NetworkPrinter is more for when you use a physical printer which may or may not be on the same port on each computer in a network.

Thanks for the article, I think it may have solved a very big problem for us. However, I have a problem getting it to work, unfortunately. I have set up a dummy printer (call it “PS_Printer”) on a dummy port (“PS_Port”), and used the following code:

ThisWorkbook.Sheets(SheetName).ActivePrinter = “PS_Printer”
ThisWorkbook.Sheets(SheetName).PrintOut(FileName:=strFilename, Copies:=1, PrintToFile:=True, OutputFileName:=sOutputFilename)

..but the application still tries to print to the default printer. Have I missed something? I have tried using the dummy printer from Word, and it seems to work just fine, so I’m wondering if the code is somehow “missing” the dummy printer.

Any help would be very gratefully accepted!