Last Modified Date
i searched the newsgroup for this "last modified date in header", &
the 1st post listed an example......... title: Need some code for header/ footer, another case of "last saved by. http://groups.google.com/group/micro...d4b9aa2fd5198b Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim wkSht As Worksheet For Each wkSht In ThisWorkbook.Worksheets wkSht.PageSetup.RightFooter = ("&20Last Saved or Modified by ") & _ (Format(ThisWorkbook.BuiltinDocumentProperties("La st Author"))) & ("&20 on ") & _ (Format(ThisWorkbook.BuiltinDocumentProperties("La st Save Time"))) Next wkSht End Sub watch out for line breaks if you cut & paste this........ hth susan On May 23, 11:01 am, Me wrote: Can I put the last modified time and date into a header in Excel 2003? If so, how would I do that? Thank you in advance. |
Last Modified Date
I never used Google groups before, but now I have it bookmarked. :-)
This code works for me, except I cannot get the footer to appear in 8 point font. The default is set at 20 point, and no matter how often I change the footer font, or how many times I save the file, I cannot get the font in the footer to change. Thank you for your help. Me "Susan" wrote: i searched the newsgroup for this "last modified date in header", & the 1st post listed an example......... title: Need some code for header/ footer, another case of "last saved by. http://groups.google.com/group/micro...d4b9aa2fd5198b Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim wkSht As Worksheet For Each wkSht In ThisWorkbook.Worksheets wkSht.PageSetup.RightFooter = ("&20Last Saved or Modified by ") & _ (Format(ThisWorkbook.BuiltinDocumentProperties("La st Author"))) & ("&20 on ") & _ (Format(ThisWorkbook.BuiltinDocumentProperties("La st Save Time"))) Next wkSht End Sub watch out for line breaks if you cut & paste this........ hth susan On May 23, 11:01 am, Me wrote: Can I put the last modified time and date into a header in Excel 2003? If so, how would I do that? Thank you in advance. |
Last Modified Date
Edit: I figured out how to change the font. That '20' is in the code for a
reason. :-p Thanks again for your help. "Me" wrote: I never used Google groups before, but now I have it bookmarked. :-) This code works for me, except I cannot get the footer to appear in 8 point font. The default is set at 20 point, and no matter how often I change the footer font, or how many times I save the file, I cannot get the font in the footer to change. Thank you for your help. Me "Susan" wrote: i searched the newsgroup for this "last modified date in header", & the 1st post listed an example......... title: Need some code for header/ footer, another case of "last saved by. http://groups.google.com/group/micro...d4b9aa2fd5198b Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim wkSht As Worksheet For Each wkSht In ThisWorkbook.Worksheets wkSht.PageSetup.RightFooter = ("&20Last Saved or Modified by ") & _ (Format(ThisWorkbook.BuiltinDocumentProperties("La st Author"))) & ("&20 on ") & _ (Format(ThisWorkbook.BuiltinDocumentProperties("La st Save Time"))) Next wkSht End Sub watch out for line breaks if you cut & paste this........ hth susan On May 23, 11:01 am, Me wrote: Can I put the last modified time and date into a header in Excel 2003? If so, how would I do that? Thank you in advance. |
Last Modified Date
I never used Google groups before
Install my GoogleSearch add-in http://www.rondebruin.nl/Google.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Me" wrote in message ... I never used Google groups before, but now I have it bookmarked. :-) This code works for me, except I cannot get the footer to appear in 8 point font. The default is set at 20 point, and no matter how often I change the footer font, or how many times I save the file, I cannot get the font in the footer to change. Thank you for your help. Me "Susan" wrote: i searched the newsgroup for this "last modified date in header", & the 1st post listed an example......... title: Need some code for header/ footer, another case of "last saved by. http://groups.google.com/group/micro...d4b9aa2fd5198b Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim wkSht As Worksheet For Each wkSht In ThisWorkbook.Worksheets wkSht.PageSetup.RightFooter = ("&20Last Saved or Modified by ") & _ (Format(ThisWorkbook.BuiltinDocumentProperties("La st Author"))) & ("&20 on ") & _ (Format(ThisWorkbook.BuiltinDocumentProperties("La st Save Time"))) Next wkSht End Sub watch out for line breaks if you cut & paste this........ hth susan On May 23, 11:01 am, Me wrote: Can I put the last modified time and date into a header in Excel 2003? If so, how would I do that? Thank you in advance. |
All times are GMT +1. The time now is 04:55 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com