Footer - page numbering

  • Thread starter Thread starter Guest
  • Start date Start date
G

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?
 
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
 
Back
Top