Print entire workbook by default

[zoneman]

Hello everyone,
When Excel opens, by default, the Print Active Sheet option is bulleted.
Can someone tell me how to change this setting to Entire Workbook ?

Thanks !

 

[Alexwes]

The easiest way is to select all Sheets at the end of your code. When the user prints, it'll default to printing all sheets you selected:

Sheets(Array("Sheet1", "Sheet2")).Select

 

[neague]

I know this is extremely old, but I am also in the same boat. I have document productions with XLS, XLSx, XLSm... in the thousands that I have to convert to PDF before numbering each page. Without a way to print the entire workbook by default, the only option is to open each file individually.

Did you ever get a resolution?

I'm getting errors with the VB DIM statement (It appears the EventClass is not a valid statement).

This should do what all of you want I believe. I know it's like 3 years late but I was searching for something else and I found this thread.


Application.Dialogs(xlDialogPrint).Show , , , , , , , , , , , 3