how do you print single page multiply times with increasing page .
 

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

how do you print single page multiply times with increasing page .
 

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?

how do you print single page multiply times with increasing page .
 

See Ron de Bruin's site for code.

http://www.rondebruin.nl/print.htm#same


Gord Dibben MS Excel MVP

On Thu, 25 Sep 2008 14:21:02 -0700, aliasmith
wrote:

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