I figured it out. I made a slight change to your module. I used:

Private Sub Workbook_OnOpen(Cancel As Boolean)
Application.ActivePrinter = "Genicom 3810S on LPT1:"
End Sub

Works perfect now. Thanks for your help!!

"Gord Dibben" wrote:

For a particular workbook only.

Add to Thisworkbook module.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.ActivePrinter = "Epson Stylus COLOR 800 ESC/P 2 on LPT1:"
End Sub


Adjust for the printer you want to use.


Gord Dibben MS Excel MVP



On Wed, 14 Nov 2007 09:07:03 -0800, Andrew Felsenstein <Andrew
wrote:

Is there a way I can set excel to always use a specific printer rather than
the default? This is something I need set on open.

Right now I have to change the default printer before I open excel, and
change it back after I have closed it. If I don't do this, the formating on
my document gets changed on open to use the default printer settings rather
than the printer I need to use instead.

Basically instead of printing to a laser printer, I need to use a dot matrix
for carbonless forms.