Path in Excel footer

[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

 

[Bob Phillips]

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)

 

[Andy Brown]

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

 

[Bob Phillips]

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)

 

[Gord Dibben]

Bob

I think Andy meant what he wrote, which is correct.

Gord Dibben Excel MVP

 

[Bob Phillips]

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.

 

[Gord Dibben]

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

 

[Andy Brown]

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

 

[Bob Phillips]

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)

 

[Gord Dibben]

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

 

[John McGimpsey]

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

 

[Bob Phillips]

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)

 

[JE McGimpsey]

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.

 

[Bob Phillips]

No, I know that it is not, just a bit of levity on my part.

Bob