Footer - page numbering

[Guest]

Is it possible to print an entire workbook with separate sequential page numbers for each worksheet

For example, worksheet #1 has 3 pages & should read Page 1 of 3, worksheet #2 has 2 pages & should read Page 1 of 2, etc. (Currently if I print the workbook, it prints as Page 1 of 5

Is there a way to print the entire workbook at once, or do I need to print each worksheet separately?

 

[JE McGimpsey]

You could use this macro:

Public Sub PrintEntireWorkbook()
Dim wsSheet As Worksheet
For Each wsSheet In ActiveWorkbook.Worksheets
wsSheet.Printout preview:=true
Next wsSheet
End Sub