Properties footer excel

  • Hi, I have 2 little questions:
    1.How can I adjust the texthight in the footer of an excelsheet with vba?
    2.How can I adjust the footer so that it gives something like page1/2; page 2/2
    automatically (also in vba)

    Problem solved! Ok I'm sorry!

    Private Sub Workbook_beforePrint(cancel As Boolean)
    With ActiveSheet.PageSetup
    .CenterFooter = "page &P/&N" 'this gives "page 1/2" in the centerfooter when you have two pages to print
    .LeftFooter = "&""Arial,Bold""&12Test" 'This gives text "Test" Arial Bold textheight 12 in leftfooter
    End Sub

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!