My Excel 97 application has several reports. For 1-page reports I write the
footer 1 of 1. For 2-page reports I write &[Page] of &[Pages]. The problem
is when all reports (single and multiple page) are printed out at once the
2-page reports refer to the total number of pages being printed. When a
2-page report is printed out with 6 1-page reports, instead of being 1 of 2,
2 of 2, it becomes 1 of 8, 2 of 8.

Is there a VBA solution?

Thank you in advance.
Jim Kobzeff

The following should print out every worksheet in your book. Since each
sheet is printed separately, page numbering should turn out okay.

Sub PrintAll()
Dim WkSht As Worksheet

For Each WkSht in WorkSheets
WkSht.PrintOut Copies:=1
Next WkSht

End Sub

"JK" wrote:

My Excel 97 application has several reports. For 1-page reports I write the
footer 1 of 1. For 2-page reports I write &[Page] of &[Pages]. The problem
is when all reports (single and multiple page) are printed out at once the
2-page reports refer to the total number of pages being printed. When a
2-page report is printed out with 6 1-page reports, instead of being 1 of 2,
2 of 2, it becomes 1 of 8, 2 of 8.

Is there a VBA solution?

Thank you in advance.
Jim Kobzeff