Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Kopfzeile in Buchform drucken

Gruppe

Kopf/Fußzeile

Problem

Bei Büchern sind die Kopfzeilen in der Regel jeweils links und rechts angeordnet. Wie kann ich dieses Layout bei Excel übernehmen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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