Page numbering on one page
 

OK... so I've got one page and need to print, let's say 10 copies... how do I
let it print a "page number" of 1 through 10? If I add a header, it prints
the same page number 10 times, so I'm a bit stuck.

Thx

Page numbering on one page
 

OK. No built-in way to do this, as far as I know, so you have to use a
macro.

Sub PrintTenTimesIncrementingPgNum()
Dim Counter As Integer
For Counter = 1 To 10
ActiveSheet.PageSetup.FirstPageNumber = Counter
ActiveSheet.PrintOut
Next
End Sub


--
Jim
"PsyberFox" wrote in message
...
| OK... so I've got one page and need to print, let's say 10 copies... how
do I
| let it print a "page number" of 1 through 10? If I add a header, it prints
| the same page number 10 times, so I'm a bit stuck.
|
| Thx

Page numbering on one page
 

I thought as much.... wasn't really up to doing the macro-thing, but thank
you kindly!

"Jim Rech" wrote:

OK. No built-in way to do this, as far as I know, so you have to use a
macro.

Sub PrintTenTimesIncrementingPgNum()
Dim Counter As Integer
For Counter = 1 To 10
ActiveSheet.PageSetup.FirstPageNumber = Counter
ActiveSheet.PrintOut
Next
End Sub


--
Jim
"PsyberFox" wrote in message
...
| OK... so I've got one page and need to print, let's say 10 copies... how
do I
| let it print a "page number" of 1 through 10? If I add a header, it prints
| the same page number 10 times, so I'm a bit stuck.
|
| Thx