Enter tomorrows date in the header of a file upon open

[stubs]

I have a folder containing about 15 files that need to be printed daily, but need to contain the next day's date in the header.

Currently, I have been selecting all the doccuments together & sending them to the printer using the "Send to" option from the right click windows menu.. afterwhich, I maunally date them in ink.

Is there a way to automate the process.. i.e. enter tomorrows date into the heading, before it prints.

Just to note, I also have other text in the header such as page number, and document title.. can this be retained?


Thanks in advance.
Stu

 

[Egress1]

I have a folder containing about 15 files that need to be printed daily, but need to contain the next day's date in the header.

Currently, I have been selecting all the doccuments together & sending them to the printer using the "Send to" option from the right click windows menu.. afterwhich, I maunally date them in ink.

Is there a way to automate the process.. i.e. enter tomorrows date into the heading, before it prints.

Just to note, I also have other text in the header such as page number, and document title.. can this be retained?


Thanks in advance.
Stu

Hi Stu,

I don't know if there is a way of formatting that in the Header/Footer option through Excel but I know it can be down with an Open Event Macro using the Header Property. Either LeftHeader, CenterHeader, or RightHeader respectively.

To keep what is already there use a variable like say MyHeader to read what is there then add the date to the end


MyHeader = Worksheets("Sheet1").PageSetup.LeftHeader
MyHeader = MyHeader & " "
Worksheets("Sheet1").PageSetup.LeftHeader = MyHeader & date + 1

 

[stubs]

Thanks for that! I will give it a try tomorrow.

 

[stubs]

Cheers for that, it worked a treat!! :D