ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Macro to open print window and set to print entire workbook (https://www.excelbanter.com/excel-discussion-misc-queries/52623-macro-open-print-window-set-print-entire-workbook.html)

retseort

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


--
retseort
------------------------------------------------------------------------
retseort's Profile: http://www.excelforum.com/member.php...o&userid=24690
View this thread: http://www.excelforum.com/showthread...hreadid=479968


retseort

Macro to open print window and set to print entire workbook
 

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


--
retseort
------------------------------------------------------------------------
retseort's Profile: http://www.excelforum.com/member.php...o&userid=24690
View this thread: http://www.excelforum.com/showthread...hreadid=479968



All times are GMT +1. The time now is 02:36 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com