Gruppe
Druck
Problem
Dokumententitel und Name des Autors sollen in die Druckkopfzeile übernommen werden.
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