Thema: Aktuellen Dateipfad aktualisieren

Download Beispiel-Arbeitsmappe

Home

Gruppe

Druck

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

Beiträge aus dem Excel-Forum zu den Themen Druck und Dateien

PDF Drucken VBA	Generierung von Tabs per VBA + Sammeldruck
Akt. Datum und Uhrzeit am gedruckten Dokument	Mehrere Zellen in mehreren Dateien ersetzen
Vergleichen zweier Dateien und aktualisieren	UserForm im Querformat drucken
Dateien aus Unterordner öffnen	zoom auf Druckbereichsbreite anpassen
Zusammenführung aus mehreren Dateien	Bilder in Registerblatt drucken
Alle Dateien in einem Unterordner öffnen	Mehrere txt Dateien einlesen in ein Programm
Spalte in andere Dateien kopieren + zurückkopieren	PDF eventuell Ausdruck sperren?
csv Dateien importieren	Druckprobleme....
Ordner mit Unterordnern/Dateien kopieren	Auswertung über mehrere Dateien
Dateien vergleichen-doppelte löschen	Kopieren über 2 Dateien?
Tabellenblätter Ausdruck gruppieren	Drucken mit VBA
Dateiinfo aller Dateien in allen Verz./Unterverz	2 Dateien Vergleichen und Spalten kopieren?
2 Dateien Vergleichen und Spalten kopieren?	Bestimmte Zeilen/ Spalten nicht mitdrucken
Diagramme DIN A3 drucken	Dateien vergleichen (Zeileninhalte)
Automatischen Andruck auf Standartdrucker erzeugen	Druckerauswahl
alle *.xls dateien in einem ordner löschen	Blätter autom. ein-/ausblenden + drucken
Kann bestimmten Drucker nicht auswählen	Drucker nicht vorhanden, dann Meldung
Arbeitsmappendruck	Dateien finden, die mit Passwort geschützt sind
Abfrage ob Druckbereich zu groß für Seitenbreite	Druck PDF-Datei
Mehrere Dateien in eine Tabelle	Fehler 1004 beim Druck einer PDF - mit Screenshot
2 Dateien abgleichen	Druckeinstellungen für mehrere Drucke übernehmen
Grafik drucken	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