Print Macro

[Guest]

I currently the following macro set up to print the active workbook. What do
I need to ad to this to exclude sheet 1?:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 21/03/2007 by me'

'
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
End Sub

 

[Dave Peterson]

One way is to build a list of all the sheets to be printed.

Another way is to hide the sheet, print the remainded and then unhide the sheet.

worksheets("sheet1").visible = xlsheethidden
ActiveWorkbook.PrintOut Copies:=1, Collate:=True, Preview:=true
worksheets("sheet1").visible = xlsheetvisible


(Preview:=true is nice for testing)