Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
(username v1) | Excel Discussion (Misc queries) | |||
Application.UserName Question | Excel Discussion (Misc queries) | |||
Username Log | Excel Discussion (Misc queries) | |||
macro to close excel application other than application.quit | Excel Programming | |||
application.quit will not shut off application | Excel Programming |