Gruppe
Druck
Bereich
Dateien
Thema
Aktuellen Dateipfad aktualisieren
Problem
Wie kann ich veranlassen, daß der aktuelle volle Dateiname bei jedem Druck in die Fußzeile übernommen wird?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = _
ThisWorkbook.FullName
End Sub