Print All Sheets-Select Printer First

  • Thread starter Thread starter ehale
  • Start date Start date
E

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
 
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
 
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.
 
Yep, wrong dialog box.

Should have been:

Application.Dialogs(xlDialogPrinterSetup).Show
 
Back
Top