D
Darin Kramer
Howdie,
The Macro below prints all sheets in my workbook (except for contents)I
want the pages to number consecutively, (some sheets print over two
pages) is there an easy way to achieve...
Thanks
Sub PrintVisibleSheets_2()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Visible Then
If ws.Name <> "Contents" Then
ws.PrintOut Copies:=1, Collate:=True
End If
End If
Next
End Sub
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!
The Macro below prints all sheets in my workbook (except for contents)I
want the pages to number consecutively, (some sheets print over two
pages) is there an easy way to achieve...
Thanks
Sub PrintVisibleSheets_2()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Visible Then
If ws.Name <> "Contents" Then
ws.PrintOut Copies:=1, Collate:=True
End If
End If
Next
End Sub
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!