Add date when printing

[gnoke]

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

[royUK]

Why not add it to the Header or Footer, you don't need VBA?

[gnoke]

but of course, my stupidity:p

thanks both of you

[Kafrin]

Either add a header to each sheet of &[Date] or in code use this to add the header to each sheet you are printing:

    Dim S As Object
    
    For Each S In ActiveWindow.SelectedSheets
        S.PageSetup.CenterHeader = "&D"
    Next