Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub MyOldHeader()
   Dim iCount As Integer, iCounter As Integer
   Dim bln As Boolean
   bln = True
   iCount = ExecuteExcel4Macro("get.document(50)")
   For iCounter = 1 To iCount
      With ActiveSheet.PageSetup
         If bln = True Then
            .LeftHeader = "Header"
            .RightHeader = ""
          Else
            .LeftHeader = ""
            .RightHeader = "Header"
          End If
      End With
      ActiveWindow.SelectedSheets.PrintOut _
         From:=iCounter, To:=iCounter, Copies:=1
      bln = Not bln
   Next iCounter
End Sub

    

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