Ozgrid, Experts in Microsoft Excel Spreadsheets
Javascript DHTML Drop Down Menu Powered by dhtml-menu-builder.com
Learn how to create Excel dashboards.

Excel VBA Macro - Full Workbook Path in Print Footer

Information Helpful? Why Not Donate.

TRY OUT: Smart-VBA | Code-VBA | Analyzer-XL | Downloader-XL | Trader-XL | More Free Downloads.. Best Value: Finance Templates Bundle

Originally Posted in our Excel Help Forum

Current Special! Complete Excel Excel Training Course for Excel 97 - Excel 2003, only $145.00. $59.95 Instant Buy/Download, 30 Day Money Back Guarantee & Free Excel Help for LIFE!

Got any Excel Questions? Free Excel Help

Full Workbook Path in Print Footer

Fluppe wrote:
 
How can I fill in the full path of an excel worksheet in its footer, using VBA?


Dave Hawley provided the following solution for Excel 2002 (not tested on earlier versions)

You can right click on the Excel icon, top left next to "File", select "View Code" and past in this:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

  ActiveSheet.PageSetup.LeftFooter = Me.FullName

End Sub

Or, you can use the code to run in another Procedure.

WillR provides a solution that works in XL2000 (not tested on earlier versions)

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim fullpath As String
  fullpath = ActiveWorkbook.FullName ActiveSheet.PageSetup.LeftFooter = fullpath End Sub

New & Less Than You Think: List Managers | Working With Excel Sheets In VBA | Excel Charting Lessons | Conditional Row Delete

Excel Dashboard Reports & Excel Dashboard Charts 50% Off Become an ExcelUser Affiliate & Earn Money

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to special@ozgrid.com 31 days after purchase date.


Instant Download and Money Back Guarantee on Most Software

Try out: Analyzer XL | Downloader XL | Smart VBA | Trader XL Pro (best value) | ConsoXL | MergeXL | O2OLAP for Excel | MORE>>

Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!

Microsoft ® and Microsoft Excel ® are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft

GIVE YOURSELF OR YOUR COMPANY 24/7 MICROSOFT EXCEL SUPPORT & QUESTIONS