Printing and Page numbers

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!
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top