Try this Dan for the footer

'Right click on the Excel icon next to File in the Worksheet menu bar
'Choose view code
'Paste this event there
'Alt-q to go back to Excel

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = "&8User : " & _
Environ("username")
Next wkSht
End Sub



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Dan" wrote in message ...
When a user prints a spreadsheet I would like to be able to put somewhere on
the page the name of the user that the spreadsheet was printed by. I assume
this is a simple process, but just can't figure it out.