A aliasmith Sep 25, 2008 #1 How do you print a single page multiply times with increasing page numbers?
S Sean Timmons Sep 25, 2008 #2 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.
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.
G Gord Dibben Sep 26, 2008 #3 See Ron de Bruin's site for code. http://www.rondebruin.nl/print.htm#same Gord Dibben MS Excel MVP