HERBERS Excel-Forum - die Beispiele

Thema: Aktuellen Dateipfad aktualisieren

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