ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Footer : Last saved date (https://www.excelbanter.com/excel-programming/313183-footer-last-saved-date.html)

Ajit

Footer : Last saved date
 
Problem : I have xlt template. When a user opens by double clicking the
template it creates xls.

What i want is that if xls is not yet saved then footer should print todays
date and time. but if xls is saved and being accessed later then it should
print the last saved time.

What i did : on workbook_beforeprint i wrote the following :-

Application.Volatile
ActiveSheet.PageSetup.LeftFooter=_
ThisWorkbook.BuiltinDocumentProperties("Last Save Date")

It works fine if the xls has been saved once but if it is not yet saved then
it prints the last saved date of the template and not the xls created.
--
Ajit

Frank Kabel

Footer : Last saved date
 
Hi
no chance around this restriction. You have to save first before this
document property is updated. what other date would you expect anyway
:-))

--
Regards
Frank Kabel
Frankfurt, Germany

"Ajit" schrieb im Newsbeitrag
...
Problem : I have xlt template. When a user opens by double clicking

the
template it creates xls.

What i want is that if xls is not yet saved then footer should print

todays
date and time. but if xls is saved and being accessed later then it

should
print the last saved time.

What i did : on workbook_beforeprint i wrote the following :-

Application.Volatile
ActiveSheet.PageSetup.LeftFooter=_
ThisWorkbook.BuiltinDocumentProperties("Last Save Date")

It works fine if the xls has been saved once but if it is not yet

saved then
it prints the last saved date of the template and not the xls

created.
--
Ajit



Ron de Bruin

Footer : Last saved date
 
Hi Ajit

You can use this
If the file is not saved it have no path


If Len(ThisWorkbook.Path) = 0 then

.......

Else

.......

End if


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Ajit" wrote in message ...
Problem : I have xlt template. When a user opens by double clicking the
template it creates xls.

What i want is that if xls is not yet saved then footer should print todays
date and time. but if xls is saved and being accessed later then it should
print the last saved time.

What i did : on workbook_beforeprint i wrote the following :-

Application.Volatile
ActiveSheet.PageSetup.LeftFooter=_
ThisWorkbook.BuiltinDocumentProperties("Last Save Date")

It works fine if the xls has been saved once but if it is not yet saved then
it prints the last saved date of the template and not the xls created.
--
Ajit




Ajit

Footer : Last saved date
 
I would expect today's date if not saved (and not the last template saved
date).

"Frank Kabel" wrote:

Hi
no chance around this restriction. You have to save first before this
document property is updated. what other date would you expect anyway
:-))

--
Regards
Frank Kabel
Frankfurt, Germany

"Ajit" schrieb im Newsbeitrag
...
Problem : I have xlt template. When a user opens by double clicking

the
template it creates xls.

What i want is that if xls is not yet saved then footer should print

todays
date and time. but if xls is saved and being accessed later then it

should
print the last saved time.

What i did : on workbook_beforeprint i wrote the following :-

Application.Volatile
ActiveSheet.PageSetup.LeftFooter=_
ThisWorkbook.BuiltinDocumentProperties("Last Save Date")

It works fine if the xls has been saved once but if it is not yet

saved then
it prints the last saved date of the template and not the xls

created.
--
Ajit




Frank Kabel

Footer : Last saved date
 
Hi
but as this is not a 'saved date' this would be 'wrong' :-)
You may use Ron's suggestion to check for a non-saved workbook and use
then the current date

--
Regards
Frank Kabel
Frankfurt, Germany

"Ajit" schrieb im Newsbeitrag
...
I would expect today's date if not saved (and not the last template

saved
date).

"Frank Kabel" wrote:

Hi
no chance around this restriction. You have to save first before

this
document property is updated. what other date would you expect

anyway
:-))

--
Regards
Frank Kabel
Frankfurt, Germany

"Ajit" schrieb im Newsbeitrag
...
Problem : I have xlt template. When a user opens by double

clicking
the
template it creates xls.

What i want is that if xls is not yet saved then footer should

print
todays
date and time. but if xls is saved and being accessed later then

it
should
print the last saved time.

What i did : on workbook_beforeprint i wrote the following :-

Application.Volatile
ActiveSheet.PageSetup.LeftFooter=_
ThisWorkbook.BuiltinDocumentProperties("Last Save Date")

It works fine if the xls has been saved once but if it is not yet

saved then
it prints the last saved date of the template and not the xls

created.
--
Ajit





Ajit

Footer : Last saved date
 
Thanks Ron,
It worked perfect. Good Logic.

Thanx,
Ajit

"Ron de Bruin" wrote:

Hi Ajit

You can use this
If the file is not saved it have no path


If Len(ThisWorkbook.Path) = 0 then

.......

Else

.......

End if


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Ajit" wrote in message ...
Problem : I have xlt template. When a user opens by double clicking the
template it creates xls.

What i want is that if xls is not yet saved then footer should print todays
date and time. but if xls is saved and being accessed later then it should
print the last saved time.

What i did : on workbook_beforeprint i wrote the following :-

Application.Volatile
ActiveSheet.PageSetup.LeftFooter=_
ThisWorkbook.BuiltinDocumentProperties("Last Save Date")

It works fine if the xls has been saved once but if it is not yet saved then
it prints the last saved date of the template and not the xls created.
--
Ajit





Ajit

Footer : Last saved date
 
Yes you are right, Ron's suggestion worked perfect.

Thanks you very much for chipping in your views.

Thumbs up!


"Frank Kabel" wrote:

Hi
but as this is not a 'saved date' this would be 'wrong' :-)
You may use Ron's suggestion to check for a non-saved workbook and use
then the current date

--
Regards
Frank Kabel
Frankfurt, Germany

"Ajit" schrieb im Newsbeitrag
...
I would expect today's date if not saved (and not the last template

saved
date).

"Frank Kabel" wrote:

Hi
no chance around this restriction. You have to save first before

this
document property is updated. what other date would you expect

anyway
:-))

--
Regards
Frank Kabel
Frankfurt, Germany

"Ajit" schrieb im Newsbeitrag
...
Problem : I have xlt template. When a user opens by double

clicking
the
template it creates xls.

What i want is that if xls is not yet saved then footer should

print
todays
date and time. but if xls is saved and being accessed later then

it
should
print the last saved time.

What i did : on workbook_beforeprint i wrote the following :-

Application.Volatile
ActiveSheet.PageSetup.LeftFooter=_
ThisWorkbook.BuiltinDocumentProperties("Last Save Date")

It works fine if the xls has been saved once but if it is not yet
saved then
it prints the last saved date of the template and not the xls
created.
--
Ajit






All times are GMT +1. The time now is 11:32 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com