Gruppe
Druck
Problem
Wie kann ich erreichen, dass nur auf dem ersten Blatt eine Kopfzeile gedruckt wird?
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