Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Bewerten Sie hier bitte das Excel-Portal

Home Zurück Vor

Download Beispiel-Arbeitsmappe

Thema

Pfad- und Arbeitblattname in Fußzeile eintragen

Gruppe

Kopf/Fußzeile

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

PDF Drucken VBA

Generierung von Tabs per VBA + Sammeldruck

Akt. Datum und Uhrzeit am gedruckten Dokument

UserForm im Querformat drucken

zoom auf Druckbereichsbreite anpassen

Bilder in Registerblatt drucken

PDF eventuell Ausdruck sperren?

Druckprobleme....

Tabellenblätter Ausdruck gruppieren

Drucken mit VBA

Bestimmte Zeilen/ Spalten nicht mitdrucken

Diagramme DIN A3 drucken

Automatischen Andruck auf Standartdrucker erzeugen

Blätter autom. ein-/ausblenden + drucken

Kann bestimmten Drucker nicht auswählen

Drucker nicht vorhanden, dann Meldung

Arbeitsmappendruck

Abfrage ob Druckbereich zu groß für Seitenbreite

Druck PDF-Datei

Fehler 1004 beim Druck einer PDF - mit Screenshot

Druckeinstellungen für mehrere Drucke übernehmen

Mit Change() o. Calculate() Filtern und Drucken

Druckparameter an neue Datei

Button zum Ausdrucken

Druckparameter an Datei mitgeben

Makro für ereignisabh. Druck verschiedener Seiten

Excel Seriendruck im PDF-Format

Per VBA drucken - Adobe PDF on ne0x

Drucken, nur wenn Bedingung erfüllt ist!

variablen Druckbereich definieren

Mit Makro Virtuelle Drucker (PDF) ansteuern

Standarddrucker festsetzen??

Wann zuletzt ausgedruckt

Excel druckt keine Bilder!

sql Ausdruck like

Excel Druckmakro - VBA Experten gesucht

CommandButton nicht mit ausdrucken

mehrere Sheets farbig ausdrucken, weshalb ...

Laufzeitfehler Nr. 9 bei Druckerauswahl

Tabelle drucken

UserForm als PDF o. Fax ausdrucken

Druckbefehl hinter CommandButton festlegen?

Druckmakro in Excel @ Josef Ehrensberger

einzelnen Reiter von Multipages ausdrucken

Seitenumbrüche unter Druck-Command Button ...

Drucken mit wenn bedingung