printing excel sheets

[Guest]

I would like to print a large workbook with the page numbers to restart for
each worksheet. Is there an easy way to do this?

Louise

 

[Pete_UK]

I think you will find that if you select a sheet then print it the page
numbers will start at one. Select another sheet and print that and its
page numbers will also start at one.

Is this what you mean?

Pete

 

[Guest]

Not really. I want to select the entire workbook but each sheet will start
with page # 1. there are approx 50 sheets in the workbook. I do not want to
select each sheet and hit print. too much time. any more suggestions.

Louise

 

[Jim May]

Use this Macro (in a standard module):

Sub PrintAllWSheets()
    Dim WS As Worksheet
    For Each WS In Worksheets
        WS.PrintOut
    Next
End Sub

HTH

 

[Guest]

Jim:

I am having trouble with this macro. I was able to write macros before
windows but since I have only been able to record keystrokes macros. I have
tried to cut and past the macro below but I am getting an error. see below.


' PRINT_ALL_SHEETS_NEW_PAGE_NUMBERING Macro
' Macro recorded 10/24/2006 by Louise
'
Sub PRINT_ALL_SHEETS_NEW_PAGE_NUMBERING()
Dim WS As Worksheet
For Each WS In Worksheets
WS.PrintOut
Next
End Sub

Error I receive is "Compile Error" "Syntax Error"

What am I doing wrong?

Louise