Add date when printing a file

[DSLA]

Hi,

How can i add a date to the excel page when it is printed out?

Somekind of macro?

 

[DSLA]

sheets: DATA1, DATA2, DATA3, DATA4.
Date cell K1

 

[onlyadrafter]

Hello,

change the supplied code to

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Right(ActiveSheet.Name, 1) < 5 Then
        Range("K1").Value = Now()
    End If
End Sub

does this give any errors?

 

[DSLA]

Let me clarify the question a bit

I have the following sheets:
customerdata
total
data1
data2
data3
data4
total1
total2
total3
total4

I want the print fucntion to work only on the following sheets:
total
total1
total2
total3
total4

How can i do this?

 

[onlyadrafter]

Hello,

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
    If Left(ActiveSheet.Name, 4) ="Tota" Then 
        Range("K1").Value = Now() 
    End If 
End Sub

is this it?