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.

Dixon.

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


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

To Print ALL sheets

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

Ivan