Printer Selection

F

Frank R

I would like to add to the toolbar a "print" icon for a specific printer
(actually my paperless office printer).

I know I can change the default printer and also select a printer, then the
default printer is the last used printer. But I would like to create a
"static" print icon that does not change when I do actually change the
printer selection for other ACTUAL printers.

Is this possible????
 
R

Ron de Bruin

Hi Frank

You can assign a macro like this to the button

It save the active printer first and then change it to the printer you want.
Print the activesheet and restore the active printer

Dim DPrinter As String
DPrinter = Application.ActivePrinter
Application.ActivePrinter = "Microsoft Office Document Image Writer on Ne01:"
ActiveSheet.PrintOut
Application.ActivePrinter = DPrinter
 
B

Bob Phillips

Frank,

Haven't tried it, but this might work

Sub printToCanon()
Dim currPrinter
With Application
currPrinter = .ActivePrinter
.ActivePrinter = "Canon Bubble-Jet BJC-4300 on LPT1:"
ActiveWindow.SelectedSheets.PrierntOut
.ActivePrinter = currPrinter
End With
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)
 
Top