Gruppe
Druck
Bereich
Kopf/Fußzeile
Thema
Kopfzeile in Buchform drucken
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