VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Pfad- und Arbeitblattname in Fußzeile eintragen

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

    


Beiträge aus dem Excel-Forum zu den Themen Druck und Kopf/Fußzeile