Printing and Page numbers

[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

 

[Dick Kusleika]

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/2004/05/27/printing-multiple-sheets/