Gruppe
Druck
Problem
Wie kann ich über ein VBA-Makro 3 Linien in die Kopf- und 2 Linien in die Fußzeile einfügen?
StandardModule: basmain
Sub LinesInHeFo()
Dim sSep As String, sText As String
sSep = Application.Rept("_", 20)
With ActiveSheet.PageSetup
sText = sSep & vbLf & sSep
.CenterFooter = sText
sText = sText & vbLf & sSep
.CenterHeader = sText
End With
ActiveSheet.PrintPreview
End Sub