Page numbering of multiple sheets

[Guest]

Situation: I'm printing multiple worksheets, each with 1 or more pages, in
the same workbook. Each sheet has a header and/or footer which contains 'Page
x of xx pages". The page number correctly resets to 1 with each new sheet.
The number of pages, however, does not. Every sheet prints as Page 1(2,3...)
of 106 (the total number of pages being printed, NOT the total # of pages in
each particular worksheet.) Is there a way to reset the "number of pages" at
the end of each sheet?

Thanx.

 

[Héctor Miguel]

hi, JHJ !

Situation: I'm printing multiple worksheets, each with 1 or more pages, in the same workbook.
Each sheet has a header and/or footer which contains 'Page x of xx pages".
The page number correctly resets to 1 with each new sheet.
The number of pages, however, does not. Every sheet prints as Page 1(2,3...) of 106
(the total number of pages being printed, NOT the total # of pages in each particular worksheet.)
Is there a way to reset the "number of pages" at the end of each sheet?

if you are looking for a way that is different from selecting each worksheet to print it
[in order to avoid the accumulative numeration of the printed pages]...
try selecting multiple worksheets and executing a macro like the following one:

Sub Print_particular_selected_sheets()
Dim Sheet_n As Worksheet
For Each Sheet_n In ActiveWindow.SelectedSheets
Sheet_n.PrintOut
Next
End Sub

hth,
hector.