View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Dave Peterson[_3_] Dave Peterson[_3_] is offline
external usenet poster
 
Posts: 2,824
Default Programming footer

Excellent response!!!



Donald wrote:

Great! Was wondering if there was a way to turn it off. Just ask Dave, when
he's feeling ten feet tall.

--
Donald
"Dave Peterson" wrote in message
...
Try this version with the extra U:

ActiveSheet.PageSetup.RightFooter = _
"&""Brush Script mt,italic""&14&U" & Application.UserName & _
Chr(10) & "&U&""Times New Roman""&8" & "&D &T"


One &U turns on the underlining. One &U turns off the underlining. Just
like
Grace Slick wrote (or something like that!)

(Sometimes, I'm too subtle for my own good.)

Donald wrote:

BTW, I'm running OfficeXP (Excel ver 10.0)

--
Donald
"Donald" wrote in message
...
No U after char(10), the code I posted actually was copied and pasted.
Only one 'U' in the code.

--
Donald
"Dave Peterson" wrote in message
...
Can you find the difference:

ActiveSheet.PageSetup.RightFooter = _
"&""Brush Script mt,italic""&14&U" & Application.UserName & _
Chr(10) & "&U&""Times New Roman""&8" & "&D &T"

ActiveSheet.PageSetup.RightFooter = _
"&""Brush Script mt,italic""&14&U" & Application.UserName & _
Chr(10) & "&""Times New Roman""&8" & "&D &T"

(look for an extra &U after the chr(10) portion.)

(Sometimes copying and pasting from the newsgroup post is a good
thing.
<vbg.)



Donald wrote:

My code is as follows:
ActiveSheet.PageSetup.RightFooter = "&""Brush Script
mt,italic""&14&U" &
Application.UserName & Chr(10) & "&""Times New Roman""&8" & "&D &T"

my network login "J_Doe" is returned by <application.username

The problem right now is that all of the footer is underlined, not
the
username only.

--
Donald

"Dave Peterson" wrote in message
...
The code I posted worked nicely for me (xl2002).

Can you post your code--and what is returned by
application.username?



Donald Stockton wrote:

Whoops, this actually seems to underline ALL of my footer

D.S.

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

--

Dave Peterson


--

Dave Peterson




--

Dave Peterson


--

Dave Peterson