I done this but with headers, this will do it for Footers

Create a button and assign these properties

Private Sub CommandButton1_Click()

'Change sheet1 top the name of the worksheet
With ActiveSheet.Sheet1

'Enter your footers inbetween the "" ie "This is my footer"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""

End With
'PrintOut From:=2, To:=2 is the page you require to print
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True

'For another page copy from with active down to :=true paste underneath this
ciode and then change its properties

end sub

HTH

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200602/1