auto format of info in footer
 

I have an 8 page excel document which has to be printed 280
times but each group of 8 must contain a 3 digit number in
the footer (separate from the page number). Being numeric,
can anyone figure out a way to program the footer quicker
than manually opening the footer and inserting the next 3
digit number on the subsequent groups of 8, 279 more times?

auto format of info in footer
 

Activesheet.PageSetup.CenterFooter = Format(val,"000")

You could possibly manage this in the beforeprint event if you are printing
each page individually. or as an 8 page group.

--
Regards,
Tom Ogilvy

"scott" wrote in message
...
I have an 8 page excel document which has to be printed 280
times but each group of 8 must contain a 3 digit number in
the footer (separate from the page number). Being numeric,
can anyone figure out a way to program the footer quicker
than manually opening the footer and inserting the next 3
digit number on the subsequent groups of 8, 279 more times?