different footers on each printed page

[Guest]

I need a different footer on each printed page within one worksheet. We are using Excel 2000 and the footer seems to be applied to all pages within the worksheet. I need to change the wording on each printed page. Is there a way to do this in VBA? The only thing I have found so far is to put each page on it's own sheet and use ActiveSheet.PageSetup.

 

[Frank Kabel]

Hi
You may try something like the following code:

Sub print_different()
dim i
With ActiveSheet.PageSetup
for i = 1 to 5
.CenterFooter = "Footer " & i
ActiveSheet.PrintOut From:=i, To:=i
next
End With
End Sub