Thema: Dokumententitel und UserName in Kopfzeile übernehmen

Download Beispiel-Arbeitsmappe

Home

Gruppe

Druck

Problem

Dokumententitel und Name des Autors sollen in die Druckkopfzeile übernommen werden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub PrintSheet()
   Dim sHead As String
   With ThisWorkbook.BuiltinDocumentProperties
      sHead = "Title: " & .Item(1) & vbLf & "Author: " & .Item(3)
   End With
   ActiveSheet.PageSetup.LeftHeader = sHead
   ActiveSheet.PrintPreview
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	Druckerauswahl
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
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	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	Druckvorschau
Druckerdialog	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