Macro to open print window and set to print entire workbook

I need help getitng a macro created to open the print window, then set it to 'print the entire workbook'. Then the macro would stop. At which the user would then specify additional specs for printing. I.E. # of pages, paper size etc.

I am trying to default the 'print entire work book option' without restricting the user from other print specs.

I have a macro that will print once a button is clicked on the spreadsheet but it goes directly to print and does not let the user set other specs. I.E. # of pages, etc.

Thanks in advance

Ok,

I thought of something but it will not work. I entered the following code in the BeforePrint event to select all worksheets. The thought being that once all work sheets are selected even if the user prints selected sheets it will print all of them. It will not work. WHy?

My code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets(Array("Sheet3", "Sheet2", "Sheet1", "Page 1")).Select
Sheets("Page 1").Activate
End Sub