Something like this?


Sub PrintMe()
Dim Cel As Range
Dim i As Long
Dim Sh As Worksheet
Dim Rng As Range
Dim Pages As Long

Pages = Int(Range(ActiveSheet.PageSetup.PrintArea).Rows.Co unt / 20)

For i = 1 To Pages
With ActiveSheet.PageSetup
.LeftFooter = Range("A" & 20 * i)
'simlar code for other footers
End With
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, _
Copies:=1, Collate:=True
Next i
End Sub



"Hans47" wrote in
message ...

Hi experts,

Is there a way to manipulate the footer in such a way that each
successive page printed has a different alpha-numeric number in the
footer. This number would be related to the data on each page e.g. it
could be cell A20 for page1 , cell A40 for page 2, etc.

Thanks

Hans


--
Hans47
------------------------------------------------------------------------
Hans47's Profile:
http://www.excelforum.com/member.php...o&userid=17600
View this thread: http://www.excelforum.com/showthread...hreadid=384412