Gruppe
Druck
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.
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