Results 1 to 2 of 2
  1. #1

    File Path in Footer

    Does anyone know how to get the file path to display in a custom footer in Excel 97?
    I can get the file and sheet names, but can't find anything for the path. Am I missing something obvious? [img]/w3timages/icons/doh.gif[/img]


  2. #2
    Uranium Lounger
    Join Date
    Dec 2000
    Salt Lake City, Utah, USA
    Thanked 5 Times in 5 Posts

    Re: File Path in Footer

    I recall Ruth C. helped me on this, so it's my turn. You have to use a macro specifiying "&ActiveWorkbook.FullName". Here's a simple code sample and most of the parameters:

    Sub SetHeadersFooters()
    ' Notes; insert '& Chr(10)' to break a footer to a new line
    ' &T is time, &D is date, &A is tab (sheet name), &F is file
    ' &P is pages, &N is number of pages,
    ' &L Left aligns,&C Centers,&R Right aligns, characters that follow.
    ' &E turns double-underline printing on or off.
    ' &B turns bold, &I turns italic, printing on or off.
    ' &U turns underline printing on or off.
    ' &X turns superscript, &Y turns subscript, printing on or off.
    ' &P+number Prints the page number plus the specified number.
    ' &P-number Prints the page number minus the specified number.
    ' && Prints a single ampersand.
    ' &nn Prints the characters that follow in the specified font size.
    ' Use a two-digit number to specify a size in points.
    With ActiveSheet.PageSetup
    .LeftFooter = "&06 &T on &D"
    .CenterFooter = "&06 page &P of &N"
    .RightFooter = "&06 &A in " &ActiveWorkbook.FullName
    End With
    End Sub
    -John ... I float in liquid gardens
    UTC -7ąDS

Posting Permissions

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