Probably easiest by manually entering "Page" in a bottom cell, then do some
code on the back end.

For i = 1 to 20
Range("G40").Value = i
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate
_:=True
Next i

assuming G40 is where you put the 1 and you want 20 pages.

"aliasmith" wrote:

How do you print a single page multiply times with increasing page numbers?