Gruppe
Druck
Bereich
Kopf/Fußzeile
Thema
Pfad- und Arbeitblattname in Fußzeile eintragen
Problem
Wie kann ich automatisch bei jedem Druck den kompletten Pfad und den jeweiligen Tabellenblattnamen in die Fußzeile eintragen lassen? Änderungen des Blattnamens und Verschiebungen der Arbeitsmappe in ein anderes Verzeichnis sollen berücksichtigt werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wks As Worksheet
For Each wks In Worksheets
wks.PageSetup.LeftFooter = ThisWorkbook.FullName _
& " - " & wks.Name
Next wks
End Sub