Printing user name in report

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Shaun Medley - 11 Aug 2004 10:37 GMT

I have a shared spreadsheet that can be printed by any of
the users whom it is shared to - but I want their username
to be on the printout somewhere so we know who printed it.
Can't find anything in standard Excel - Is this possible?
Thanks
Shaun

Reply to this Message

Don Guillett - 11 Aug 2004 15:58 GMT

copy paste this to a REGULAR module. Then =un() will show the user name in
the cell.

Function un()
un = Application.UserName
End Function

Signature

Don Guillett
SalesAid Software
donaldb@281.com

> I have a shared spreadsheet that can be printed by any of
> the users whom it is shared to - but I want their username
> to be on the printout somewhere so we know who printed it.
> Can't find anything in standard Excel - Is this possible?
> Thanks
> Shaun

Reply to this Message

Gord Dibben - 12 Aug 2004 01:04 GMT

Shaun

Place this code in the ThisWorkbook module.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = Application.UserName & " " & Date
End Sub

Gord Dibben Excel MVP

>I have a shared spreadsheet that can be printed by any of
>the users whom it is shared to - but I want their username
>to be on the printout somewhere so we know who printed it.
>Can't find anything in standard Excel - Is this possible?
>Thanks
>Shaun

Reply to this Message

Rate this thread: