Print All Sheets-Select Printer First

[ehale]

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

 

[JLGWhiz]

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]

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]

Yep, wrong dialog box.

Should have been:

Application.Dialogs(xlDialogPrinterSetup).Show