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)


"Frank R" <Frank wrote in message
...
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????