Hi and welocme to MrExcel.
Do you mean that you want to add something to a "Footer" so that it is printed on every page that is printed out?
If so, try, alt F W V click Page Setup, Click Header/Footer, Click Custom Footer, add whatever in formation you want to the Footer, click Ok, Ok and close (X)
If you require a VBA solution, I'm sorry, but I cannot really help you with that, other than to say, you'll need something like this....
Sub PrintExample()
With ActiveSheet
''''This adds the date and time to the center of the sheet at the top
ActiveSheet.PageSetup.CenterHeader = Format(Now, "dddd dd mmmm yyyy hh:mm am/pm")
''''This adds your name and year to the bottom right of the sheet
ActiveSheet.PageSetup.RightFooter = Format("©Mszcool") & Format(Now, "yyyy")
'.PrintPreview
.PrintOut
End With
End Sub
Or if you wanted to produce the same document for different people/areas.....
Sub PrintNote()
Sheets("Invoice").Select
Dim x As Integer
For x = 1 To 4
Dim y As String
Select Case x
Case 1: y = "Accounts copy"
Case 2: y = "Warehouse copy"
Case 3: y = "Admin copy"
Case 4: y = "Admin copy"
End Select
'ActiveSheet.PageSetup.LeftFooter = y
'ActiveSheet.PageSetup.RightFooter = y
'ActiveSheet.PageSetup.LeftHeader = y
ActiveSheet.PageSetup.RightHeader = y
ActiveSheet.PrintOut
Next x
End Sub
I hope this helps.
Ak