"Printed by:" in Footer

[Ruan]

Hello,

Is there a way to display the User who printed the document in the Footer?

Thanks
Ruan

 

[Frank Kabel]

Hi
Put the following code in your workbook module (not in a standard
module):
Private Sub Workbook BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In me.Worksheets
With wkSht.PageSetup
.CenterFooter = "Printed by: " & application.username
End With
Next wkSht
End Sub

 

[Ruan]

Thanks Frank,

That worked really great.

Ruan

Hi
Put the following code in your workbook module (not in a standard
module):
Private Sub Workbook BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In me.Worksheets
With wkSht.PageSetup
.CenterFooter = "Printed by: " & application.username
End With
Next wkSht
End Sub

 

[CLR]

Frank.........
Is this code intended to return the User that the Excel is installed to, or
the User who signed on the computer?

Vaya con Dios,
Chuck, CABGx3

 

[Frank Kabel]

Hi
the first one
For the latter one you'll need a different approach. e.g.

Public Function WinUserName() As String
WinUserName = Environ("UserName")
End Function

 

[CLR]

Thank you Sir.........another one for my goodie-stash

Vaya con Dios,
Chuck, CABGx3