Printing to Local Printer and the not the default printer.

  • Thread starter Thread starter ianmacinnis
  • Start date Start date
I

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
 
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
Click to expand...

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
 
Back
Top