VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Kopfzeile nur auf erstem Blatt drucken

Gruppe

Druck

Bereich

Kopf/Fußzeile

Thema

Kopfzeile nur auf erstem Blatt drucken

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

    


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