MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Printing Sheets Macro

Posted by Dixon on May 05, 2000 5:00 AM

Please help.

With this example (below) the Macro will only print the named sheets. But I need a Macro that will Print out all sheets in workbook except a specified sheet (say for example Sheet1). The reason being is that I may need to add or delete sheets, and the current Macro is too rigid.

Once selected sheets and printed then I want it to return to Sheet1.

Can any body help? Thanks.


Sheets(Array("Sheet2", "Sheet3", "Sheet4", "Sheet5")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

Posted by Ivan Moala on May 05, 2000 1:48 PM

To Print ALL sheets

dim Sh
For Each Sh in ActiveWorkbook.Sheets
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next Sh