"Printed by:" in Footer

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Ruan - 26 May 2004 21:43 GMT

Hello,

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

Thanks
Ruan

Reply to this Message

Frank Kabel - 26 May 2004 21:49 GMT

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

Signature

--
Regards
Frank Kabel
Frankfurt, Germany

> Hello,
>
> Is there a way to display the User who printed the document in the Footer?
>
> Thanks
> Ruan

Reply to this Message

Ruan - 27 May 2004 03:28 GMT

Thanks Frank,

That worked really great.

Ruan

> Hi
> Put the following code in your workbook module (not in a standard
[quoted text clipped - 20 lines]
> > Thanks
> > Ruan

Reply to this Message

CLR - 01 Jun 2004 04:48 GMT

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

> Hi
> Put the following code in your workbook module (not in a standard
[quoted text clipped - 20 lines]
> > Thanks
> > Ruan

Reply to this Message

Frank Kabel - 01 Jun 2004 06:38 GMT

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

Signature

--
Regards
Frank Kabel
Frankfurt, Germany

> Frank.........
> Is this code intended to return the User that the Excel is installed
[quoted text clipped - 27 lines]
>>> Thanks
>>> Ruan

Reply to this Message

CLR - 01 Jun 2004 23:25 GMT

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

Vaya con Dios,
Chuck, CABGx3

> Hi
> the first one :-)
[quoted text clipped - 40 lines]
> >>> Thanks
> >>> Ruan

Reply to this Message