Try this hspence

http://www.rondebruin.nl/print.htm#Saved

--

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


"hspence" wrote in message ...
Hi Jim,

sorry, this doesn't seem to be working for me, but I have not programmed
much, so perhaps I am not changing the sheet reference correctly?? I'd like
this to run on all sheets in the workbook.

"Jim Thomlinson" wrote:

Give this a try... Just change the sheet reference...

With ThisWorkbook
Sheets("Sheet1").PageSetup.LeftFooter = "Last modified by " & _
.BuiltinDocumentProperties("Last Author") & " on " & _
.BuiltinDocumentProperties("Last Save Time")
End With

--
HTH...

Jim Thomlinson


"hspence" wrote:

I've seen lots of examples on here that does one or the other, but can't find
a piece of code that does both.

In my footer, I want to display the name of the person who last modified the
file, and the date & time it was saved. I also want the font size to be 20.

In plain english, it would read:

Last Modified by [last author] on dd-mmm-yyyy hh:mm:ss

If you can steer me to such an example, or write it here for me, I would
very much appreciate it.

THanks!