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!

Darin

I think if you print the sheets as one print job rather than separate print
jobs, they will number consecutively. See if this post helps

http://www.dicks-blog.com/archives/2...ltiple-sheets/

--
Dick Kusleika
Excel MVP
Daily Dose of Excel
www.dicks-blog.com

Darin Kramer wrote:
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!