application.username
 

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.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

application.username
 

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)

"Donald Stockton" wrote in message
...
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.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

application.username
 

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

--
Regards
Frank Kabel
Frankfurt, Germany

Donald Stockton wrote:
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.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

application.username
 

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.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

application.username
 

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

"Donald Stockton" wrote in message
...
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.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

application.username
 

Hi
just concatenate the username. e.g.
RightFooter = "&D &T &""Brush Script MT,Italic""&14 &
application.username

--
Regards
Frank Kabel
Frankfurt, Germany

Donald Stockton wrote:
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.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

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)

"Chip Pearson" wrote in message
...
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

"Donald Stockton" wrote in message
...
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.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

application.username
 

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.


"Frank Kabel" wrote in message
...
Hi
just concatenate the username. e.g.
RightFooter = "&D &T &""Brush Script MT,Italic""&14 &
application.username

--
Regards
Frank Kabel
Frankfurt, Germany

Donald Stockton wrote:
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.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!