Working with page footers

[Nathan]

Hello all.

I have a recordset that has many items.
They are grouped into class codes.

I am writing these items out to a worksheet.

I want to have a page footer that
A) Lists the class code
B) Displays the page number of the page within the class
code (there are 30 items per sheet. So if there were 55
items, there would be 3 sheets)

So some sample page footers would look like this:

EDGERS - 1
GROOVERS - 1
TROWELS - 1
TROWELS - 2
TROWELS - 3


Is there any way of accomplishing this?
Can it be done by storing the page footer values in an
array and then calling the array while setting the
pagefooter like this:

Worksheets("WorkSheet").PageSetup.RightFooter = arrFooters
(&P)

Thanks for any help.

 

[Tom Ogilvy]

No, you would need to print each page separately to have a different footer
on each page.