Log when printing

[Craig1]

Hi guys,

I use the code below:-

Private Sub Workbook_Open() With Worksheets("Log")
EndRow = Sheets("Log").Range("A65536").End(xlUp).Row + 1
Sheets("Log").Range("F" & EndRow).Value = Environ("USERNAME")
Sheets("Log").Range("A" & EndRow).Value = Now()

End With
End Sub


This documents who has logged into the workbook. I want to use something similar when a document is printed. All I need is the date and username (as above). When command button1 (which prints a word doc) is pressed I want the info to go into column C for the user and the date in column D.

Any help would be appreciated.

Craig.

 

[GTO]

Maybe:

    With Sheet2 '<---CodeName or Sheet/Tab name ---> ThisWorkbook.Worksheets("Sheet2")
        .Cells(.Rows.Count, "C").End(xlUp).Offset(1).Resize(, 2).Value _
            = Array(Environ("UserName"), Date)
    End With
End Sub

 

[Craig1]

Thanks for that GTO, I will give it a try tomorrow when I'm back at work.

Craig.

 

[Craig1]

Hi Guys,

I got the code to work when I changed a cell but not when I printed using the command button. It did also put the user name and date in another 200+ cells in the same columns.

Can excel extract the info it needs from the press of a command button or is it just a change in a cell.

Any ideas guys. All help welcome and appreciated.

Craig.

 

[Craig1]

Any idea's on this one guys.

Craig.

 

[Craig1]

Any help guys

Craig.

 

[GTO]

...When command button1 (which prints a word doc) is pressed I want the info to go into column C for the user and the date in column D...

I got the code to work when I changed a cell but not when I printed using the command button. It did also put the user name and date in another 200+ cells in the same columns...

Hi Craig,

Can you show us the code you currently have for the button's click event?

Mark

 

[Craig1]

Hi Mark,
Thanks for the reply, I got it to work by adding the the code below (and modifying) to the actual command button. So when it actually does the print it puts the user name and date where i need it.

EndRow = Sheets("Log").Range("A65536").End(xlUp).Row + 1
Sheets("Log").Range("F" & EndRow).Value = Environ("USERNAME")
Sheets("Log").Range("A" & EndRow).Value = Now()

So all's well that ends well.

Again, thanks for all the help.

Craig.