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