ich möchte beim Ausdruck automatisch eine zweizeilige Kopfzeile in verschiedenen Textformaten drucken.
Zeile 1 = Arial 14 fett - das klappt
Zeile 2 = Arial 10 normal
Wer kann mir den Codeschnipsel anpassen?
Sub Druck()
With ActiveSheet
.PageSetup.LeftHeader = "" & Chr(10) & Chr(10) & "&""Arial,Standard""&10Übersichts-Liste" _
_
.PageSetup.CenterHeader = "&""Arial,Fett""&14TEST"
.PageSetup.RightHeader = "" & Chr(10) & Chr(10) & "&""Arial,Kursiv""&10" & .Range("L3"). _
_
Value
.PrintPreview
' .PrintOut From:=1, To:=2, Copies:=1, Collate:=True
End With
End Sub
Danke für eure Hilfe!
LG Ina