Path in Excel footer

  • Thread starter Thread starter Donald
  • Start date Start date
D

Donald

Is there a way to indicate the full path in an Excel
footer for Excel 2000? Send me an answer at
(e-mail address removed). Thanks
 
Hi Donald,
Keep it in the NG.

This code, placed in the ThisWorkbook code module, automatically sets the
full name when printing.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = ThisWorkbook.FullName
End Sub


If you just want the path, change FullName to Path.


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
ThisWorkbook code module

To access this, rightclick the Excel icon directly left of "File" in the
menu bar. Select View Code from the pop-up.

Rgds,
Andy
 
Andy,

I think you mean the Excel icon at the top left of the worksheet?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Well in my Excel (XL2000, XP), there is no Excel icon to the left of the
file menu, and the one I highlighted provides access to ThisWorkbook.
 
OK Bob.

We're both correct. If you have the worksheet "maximized" the icon moves left
of the "File" item.

If worksheet not maximized the icon is on worksheet title bar.

Gord
 
Hi Bob, running 2K.

I have an icon left-most in the title bar, followed by Microsoft Excel -
Book 1. Left- *or* right-clicking this yields ; Restore - Move - Size -
Minimize - Maximize - Close. These (actions) relate to the application.

Directly below that is the menu bar. There's an icon followed by File -
Edit - View, etc. Left-clicking yields the same options, related to the
workbook. Right-clicking yields ; Save - Save As ... - Print ... - Page
SetUp ... - Spelling ... - New Window - Arrange ... - Zoom ... - View Code.

The menu bar icon *can't* be ALT'n'dragged off the menu bar, unlike the
actual menus. Maybe it's an SR thing?

Rgds,
Andy
 
Thanks Andy, Gord,

I never have my workbook maximized (don't know why, but I just don't like
it), so I have never seen that before.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
I so rarely run not maximized that I forgot about the icon switcting back and
forth.

Hence, my first post stating "he is correct".

Sigh......so many permutations, so little time to learn.

Gord
 
Since this behaves unpredictably when sheets are grouped, I generally
prefer to use

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wsSheet As Worksheet
For Each wsSheet In ActiveWindow.SelectedSheets
wsSheet.PageSetup.LeftFooter = Me.FullName
Next wsSheet
End Sub
 
I'll note that for future reference.

PS I also see that your NG id has changed (for the 2nd time recently), no
more mysterious JE <G>

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Well, it's never been a secret, but I use JE in my professional work.
I've been switching back and forth the last few days with an old machine
which had different preferences.
 
Back
Top