Kopfzeilen nicht auf erster Seite
Heindl
ich habe ein Tabellenblatt (Excel2000), dass beim Ausdrucken mehrere Seite lang ist. Ich möchte erreichen, dass die Kopfzeile nicht auf der ersten Seite gedruckt wird, sondern nur auf allen restlichen Seiten.
Ich habe hierzu durch die Suchfunktion auch schon eine Lösung gefunden in der nur auf der _
ersten Seite die Kopfzeile angedruckt wird.
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
Ich habe die Werte für den LeftHeader umgedreht und das passt. Diese Lösung funktioniert aber anscheinend nur wenn ich die Seiten einzeln drucke, weil Excel2000 noch keine abweichenden Seitenlayouts kennt.
Ich möchte aber alle Seiten komplett drucken, denn es wird daraus ein PDF generiert.
Wenn dies nicht geht, kann ich dann irgendwie ab der zweiten Seite automatisch Zeilen oben einfügen (als eine Art selbstgemachte Kopfzeile)?
Ich hoffe ich konnte halbwegs klar machen was ich möchte.