Consulting

Results 1 to 5 of 5

Thread: Solved: Footer Capation

  1. #1

    Solved: Footer Capation

    I have this code that will enter a footer when printed. How can I enter another line?

    [VBA]ActiveSheet.PageSetup.LeftFooter = "Prepared for: " & FName.Caption[/VBA]

    i.e.

    My Name
    Example Report

  2. #2
    Distinguished Lord of VBAX VBAX Grand Master Bob Phillips's Avatar
    Joined
    Apr 2005
    Posts
    25,453
    Location
    [vba]
    ActiveSheet.PageSetup.LeftFooter = "Prepared for: " & FName.Caption & Chr(10) & "something else"[/vba]
    ____________________________________________
    Nihil simul inventum est et perfectum

    Abusus non tollit usum

    Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
    James Thurber

  3. #3
    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

  4. #4
    Distinguished Lord of VBAX VBAX Grand Master Bob Phillips's Avatar
    Joined
    Apr 2005
    Posts
    25,453
    Location
    [vba]
    ActiveSheet.PageSetup.LeftFooter = "Prepared for: " & Replace(FName.Caption, "&", "&&") & Chr(10) & "something else" [/vba]
    ____________________________________________
    Nihil simul inventum est et perfectum

    Abusus non tollit usum

    Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
    James Thurber

  5. #5
    Thank you xld

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •