Yep, wrong dialog box.

Should have been:

Application.Dialogs(xlDialogPrinterSetup).Show




"ehale" wrote in message
...
Thanks! That worked great -- it lets me select a printer, but for some
reason, it prints the sheets more than once. If I comment out that
Applications.dialogs . . . it only prints each sheet once. Any ideas how
I
can resolve that?

Thanks again.

"JLGWhiz" wrote:

Application.ScreenUpdating = False
Application.Dialogs(xlDialogPrint).Show

Sheets(Array("ACCOUNT SUMMARY", "VEHICLES", "DRIVERS", "AUTO LIMITS",
"GENERAL LIAB", "QUOTE")).PrintOut , , 1

Sheet1.PrintOut , , 1
Application.ScreenUpdating = True







"ehale" wrote in message
...
Hello,

I am using the following code to print all sheets in a workbook, but
want
the user to select a printer first. Not sure how to accomplish this.
Any
help is very appreciated!

Application.ScreenUpdating = False

Sheets(Array("ACCOUNT SUMMARY", "VEHICLES", "DRIVERS", "AUTO
LIMITS",
"GENERAL LIAB", "QUOTE")).PrintOut , , 1

Sheet1.PrintOut , , 1
Application.ScreenUpdating = True

Thanks,
Erica