Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Entering Path Name in Footer
Hi Frank!
I'm trying to print the file path in the footer, and I followed the instructions from McGimpsey's "Automatic Method - Per Workbook", but I keep getting an error message: Run-time error '50290': Method 'FullName' of object '_Workbook' failed. I placed the code in ThisWorkbook as instructed and I believe I typed it correctly (but I'll paste it below just in case I'm missing something). Any thoughts? Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim wsSht As Worksheet For Each wsSht In ActiveWindow.SelectedSheets wsSht.PageSetup.LeftFooter = Me.FullName Next wsSht End Sub "Frank Kabel" wrote: Hi see: http://www.mcgimpsey.com/macoffice/e...einfooter.html -- Regards Frank Kabel Frankfurt, Germany "GirlFriday" schrieb im Newsbeitrag ... I am trying to put a code into the footer that will automatically put the path and file name in an Excel spreadsheet. I know that this is a function available in the 2002 version, but I have to work in 2000 for very specific reasons. Is this possible? Can anybody help me figure this out? Thank you. |
#2
|
|||
|
|||
Hi Frank!
I am trying to insert the file path in my page footer and followed the instructions from McGimpsey's "Automatic Method - Per Workbook", but I'm getting an error message: Run-time error '50290': Method 'FullName' of object '_Workbook' failed. I placed the code in ThisWorkbook as instructed, and I believe I've typed it correctly (but I'll paste it here just in case I've missed something). Any thoughts? Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim wsSht As Worksheet For Each wsSht In ActiveWindow.SelectedSheets wsSht.PageSetup.LeftFooter = Me.FullName Next wsSht End Sub "Frank Kabel" wrote: Hi see: http://www.mcgimpsey.com/macoffice/e...einfooter.html -- Regards Frank Kabel Frankfurt, Germany "GirlFriday" schrieb im Newsbeitrag ... I am trying to put a code into the footer that will automatically put the path and file name in an Excel spreadsheet. I know that this is a function available in the 2002 version, but I have to work in 2000 for very specific reasons. Is this possible? Can anybody help me figure this out? Thank you. |
#3
|
|||
|
|||
Followup: I only get the error message when I preview. Printing works fine.
Sorry for the second post - I got an error message (both times, actually) saying that my post did not occur. Then I came in later to try again, and saw that they both posted. D'oh! "Emily Edgington" wrote: Hi Frank! I am trying to insert the file path in my page footer and followed the instructions from McGimpsey's "Automatic Method - Per Workbook", but I'm getting an error message: Run-time error '50290': Method 'FullName' of object '_Workbook' failed. I placed the code in ThisWorkbook as instructed, and I believe I've typed it correctly (but I'll paste it here just in case I've missed something). Any thoughts? Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim wsSht As Worksheet For Each wsSht In ActiveWindow.SelectedSheets wsSht.PageSetup.LeftFooter = Me.FullName Next wsSht End Sub "Frank Kabel" wrote: Hi see: http://www.mcgimpsey.com/macoffice/e...einfooter.html -- Regards Frank Kabel Frankfurt, Germany "GirlFriday" schrieb im Newsbeitrag ... I am trying to put a code into the footer that will automatically put the path and file name in an Excel spreadsheet. I know that this is a function available in the 2002 version, but I have to work in 2000 for very specific reasons. Is this possible? Can anybody help me figure this out? Thank you. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Link path not updating when renamed | Excel Discussion (Misc queries) | |||
Footer - FileName and Path | Excel Discussion (Misc queries) | |||
Formatting a footer with a top border-line | Excel Discussion (Misc queries) | |||
How do link to a remote worksheet using the path value in a field? | Links and Linking in Excel | |||
How do link to a remote field but use the path from a stored field | Excel Discussion (Misc queries) |