Hi Bob,

One final help. What will be the VBA code for Created by
and Created on which i should be adding to your code.

Please help
Thanks

-----Original Message-----
Mario,

Notwithstanding my previous typo.

Put the workbook event code into a new, pristine
workbook, and save the
file as a template file called Book.xlt in the XLStart
directory. Be aware
though, every time you New a workbook, it will throw up
the macros dialog.

--

HTH

Bob Phillips

"mario" wrote in message
...

Thanks for your help. Can u suggest how I can save
these
changes to default or template file, so that every
file I
create have those information on the footer

Thanks

-----Original Message-----
Hi Mario,

Bob's code for the date formatting should be:

Format(Now(),"dd mmm yyyy, hh:mm")

I'm sure he accidentally put "dddd" instead of "yyyy".
You
could also use:

Format(Now(),"dd mmm yyyy, h:mm AM/PM")

If you want to show the time differently.

Regards,
James S

-----Original Message-----

"mario" wrote in message
...
Please help me with

1. How to go to the next line in footer after
printing
the file name & path. "vbcrlf" actually introduces
an
empty line and then prints on the second line.,
which
I
dont want


Try vbLf instead of vbCrLf


2. What will be the VBA code for Printing the date
in
the
format like 19 Sept 2003, 13:30


Can't get 4 char month I am afraid, but can do 3

Format(Now(),"dd mmm dddd, hh:mm")

3. What will be the VBA code to print the "Last
Saved
By"
and "Last Saved time"


ActiveWorkbook.BuiltinDocumentProperties("Last
Author")
and
ActiveWorkbook.BuiltinDocumentProperties("Last Save
Time"),

giving a final result of


Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = "&8" & _
LCase(ActiveWorkbook.FullName) & ";
Worksheet:"
& " &A " & _
vbLf & "Printed on:" & Format(Now(), "dd-mmm-
yyyy ") & _
vbLf & "Saved: by " &
ActiveWorkbook.BuiltinDocumentProperties("Last
Author") & _
" on " & Format
(ActiveWorkbook.BuiltinDocumentProperties("Last Save
Time"), "dd mmm dddd, hh:mm")
.RightFooter = "&8" & "Page &P of &N"
End With
End Sub
.



.