Excel VBA Macro - Full Workbook Path in Print Footer

Complete Excel Excel Training Course. Instant Buy/Download, 30 Day Money Back Guarantee

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

Excel Dashboard Reports & Excel Dashboard Charts 50% Off

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

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