Gruppe
Druck
Bereich
Kopf/Fußzeile
Thema
Dokumententitel und UserName in Kopfzeile übernehmen
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