PDA

View Full Version : Solved: Footer Capation



av8tordude
09-10-2011, 03:53 AM
I have this code that will enter a footer when printed. How can I enter another line?

ActiveSheet.PageSetup.LeftFooter = "Prepared for: " & FName.Caption

i.e.

My Name
Example Report

Bob Phillips
09-10-2011, 04:02 AM
ActiveSheet.PageSetup.LeftFooter = "Prepared for: " & FName.Caption & Chr(10) & "something else"

av8tordude
09-10-2011, 04:12 AM
Thank you XLD.

One other question...

in a userform combo box, I have the words "M&IE" (without quotes). When this caption is stamped on the footer, it inputs M E ("E" is italicized) instead of M&IE. how can I make it show M&IE

Bob Phillips
09-10-2011, 04:51 AM
ActiveSheet.PageSetup.LeftFooter = "Prepared for: " & Replace(FName.Caption, "&", "&&") & Chr(10) & "something else"

av8tordude
09-10-2011, 06:34 AM
Thank you xld