VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Kopfzeile in Buchform drucken

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

    


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