Help with BeforePrint Event

[JoshYoung81]

So here is what I am trying to do. I have a spread with several sheets that are printed on a periodic basis. What I want is when a sheet is printed is for today's date to be added to a "Print Log" tab as a record of when it was done.

Thanks,

 

[Joe4]

Welcome to the Board!

What is the structure of your "Print Log" sheet?
Are you just wanting to record the date/time, or are there other fields?
Are you only keeping track of the most recent one (meaning pasting over the previous record), or adding a new record under the last record?

 

[Joe4]

Here is a simple example that will print the date and time in column A under the last entry:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Sheets("Print Log").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) = Now()
End Sub

 

[JoshYoung81]

It is just a list in column A of dates. THe problem i am running into is that when i switch to that tab, it prints that tab

 

[Joe4]

THe problem i am running into is that when i switch to that tab, it prints that tab

Probably because you are selecting/activating your "Print Log" tab.
You do not need to do that. Do it like I did in my previous post.

 

[JoshYoung81]

Probably because you are selecting/activating your "Print Log" tab.
You do not need to do that. Do it like I did in my previous post.

I see what you did now. That will work great. Thanks for the help.

 

[Joe4]

You are welcome!