is it possible to progresively number multiple copies

[Guest]

Is it possible to print multiple copies of a worksheet with a progressive
page number on each copy

 

[Dave Peterson]

If you have the page number in a worksheet cell, you could provide a macro that
increments that cell and prints the page:

Option Explicit
sub testme()
dim iCtr as long
with worksheets("sheet1")
for iCtr = 1 to 10
.range("a1").value = ictr
.printout preview:=true
next ictr
end with
end sub

I used A1 and did a print preview to save paper.

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

 

[Gord Dibben]

Or without a page number in a cell.

Sub PrintCopies()
Dim i As Long
For i = 1 To 3
With ActiveSheet
.PageSetup.LeftFooter = "Page " & i
.PrintOut preview:=True
'.Printout
End With
Next
End Sub


Gord Dibben MS Excel MVP