application.username

  • Thread starter Thread starter Donald Stockton
  • Start date Start date
D

Donald Stockton

I'm trying to use <application.username> in a footer, but seems that it
is only printing out as text [application.username] and not the actual
User's Name. Can this be done?

D.S.
 
Hi Donald,

This works for me

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.LeftFooter= Application.UserName
End With
End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Hi
add the following code to your workbook module:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In me.worksheets
With wkSht.PageSetup
.CenterFooter = Application.UserName
End With
Next wkSht
End Sub
 
I guess part of my problem is that I'm also trying to include some
formatting instruction in the footer. For instanc, my original code
line is this:
.RightFooter = "&D &T &""Brush Script MT,Italic""&14&UJ. Smith"

What I'm trying to do is replace <J. Smith> with <application.username>,
but haven't figured out the correct syntax to make it work.

D.S.
 
Donald,

Try

RightFooter = "&D &T &""Brush Script MT,Italic""&14" & _
Application.UserName

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

I guess part of my problem is that I'm also trying to include
some
formatting instruction in the footer. For instanc, my original
code
line is this:
RightFooter = "&D &T &""Brush Script MT,Italic""&14&UJ.
Smith"

What I'm trying to do is replace <J. Smith> with
<application.username>,
but haven't figured out the correct syntax to make it work.

D.S.
 
Hi
just concatenate the username. e.g.
RightFooter = "&D &T &""Brush Script MT,Italic""&14 &
application.username
 
Could I also suggest that, just in case you have numeric Usernames (they are
only ids after all) that you use

RightFooter = "&D &T &""Brush Script MT,Italic""&14 " &
Application.UserName

The extra space stops some unusual output (thanks to whoever it was that
suggested taht in a previous post of min, I think it was Chip, but I am not
sure).

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Thanks to all, that works. The extra space seems like a good safe guard to
keep a name beginning with a number from getting processed as part of the
font size.
 
Back
Top