Date stamp in excel

[stratis]

Hi,

I would like to make a function that will keep automatically the date that I printed an excel worksheet.

For example I am thinking of a function that will appears the word "Pending" if I haven't print the sheet and the date that I print the sheet if it is printed.

I have find some thinks with iterations, but how they works?

Thank you in advance!

 

[gallen]

How familiar are you with macros? In the Worksheet object there is a 'Before Print' event.

You can use this to set a cell to the date it was printed, with a default of 'Pending' if printing hasn't occurred.

 

[stratis]

How familiar are you with macros? In the Worksheet object there is a 'Before Print' event.

You can use this to set a cell to the date it was printed, with a default of 'Pending' if printing hasn't occurred.

To be honest I am so familiar, but I would like to learn.. Could you please give some instrusctions how I could create it?

 

[gallen]

It's difficult as I can't post screen shots.

1. Name the cell you wish to display the print status in as "_PrintStatus" (I assume you know how to name a cell) and enter the text 'Pending'
2. With the sheet active press Alt+[F11] to bring up the code window.
3. On the left you should see the project explorer. If not Press Ctrl+R.
4. Locate the "ThisWorkBook" object
5. Double Click it
6. Paste this code into the code window:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Assuming the sheet you are printing is named Sheet1:

    If ActiveSheet.Name = "Sheet1" Then
            Range("_PrintStatus").Value = "Last Printed: " & Now
    End If
End Sub