Printing to Local Printer and the not the default printer.

[ianmacinnis]

Can someone help me in the code of sending my sheet to a local printer
and not the default printer which is our network printer. Users need
to send to the local printer, but the network is their default and we
don't want them making changes to their default printer.

Thanks

 

[I.R;))]

Can someone help me in the code of sending my sheet to a local printer
and not the default printer which is our network printer. Users need
to send to the local printer, but the network is their default and we
don't want them making changes to their default printer.

Thanks

Sub your_printing
Dim defPrinter As String
defPrinter = Application.ActivePrinter
Application.ActivePrinter = "YOUR_LOCAL_PRINTER" '- this is a name of
your local printer
'Your source for printing
'....
'....
Application.ActivePrinter = defPrinter
End sub