Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Kopf/Fußzeile