Add date when printing

Hi,

I have created a macro that modifies my excelsheet and prints it out fittet to one page.

I am using this code to print:

Sub Print()
'
' Print Macro

'
ActiveWindow.SelectedSheets.PrintOut Copies:=5, Collate:=True
End Sub

I am trying to modify the code so the todays date (or the date that it is printed) appears on the center-top with letter size 16 on the print.


The sheet holds values from cell A1 and therefore I believe a TODAYS() formula in ex cell A1 is not an option....?

Hope someone can assist me

Gnoke