How can i make a workbook print to multiple printers

[shina67]

Hi All,

I have a workbook that will automatically print a worksheet within it when certain conditions are met.
The problem I have is that this is a multi-user workbook who work from different pc's.
I want the automatic print to print to the printer that is closest to the users pc.
The workbook is shared via OneDrive.
I have tried the usual method of changing it within the print options for that user.
However, when the workbook automatically saves it also saves the printer options for the rest of the users and sends to the printer that it has been changed to.
I am hoping that one of you helpful bunch can come up with a solution for me with this.

 

[jmacleary]

How about something like this?

Dim strRememberDefaultPrinter As String
strRememberDefaultPrinter = Application.ActivePrinter
Application.ActivePrinter = whatever 'set the printer to what you want
'then do your printing
Application.ActivePrinter = strRememberDefaultPrinter

 

[JLGWhiz]

You would need the printer's network name to use in an array or sequence of print commands. And if the printer is on a different server, you would also need the server name to map to the printer.

 

[Legacy 421546]

Use
Application.ActivePrinter
.. although it is not guaranteed to be "closest"