Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Kopfzeile nur auf erstem Blatt drucken

Gruppe

Kopf/Fußzeile

Problem

Wie kann ich erreichen, dass nur auf dem ersten Blatt eine Kopfzeile gedruckt wird?

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

StandardModule: basMain

Sub Drucken()
   Dim iPage As Integer
   For iPage = 1 To ExecuteExcel4Macro("GET.DOCUMENT(50)")
      With Worksheets("Tabelle1")
         If iPage = 1 Then
            .PageSetup.LeftHeader = "Mein Dokument"
         Else
            .PageSetup.LeftHeader = ""
         End If
         .PrintOut from:=iPage, To:=iPage
      End With
   Next iPage
End Sub