habe in einer Tabelle ein Blatt, welches u.U. mehrere Seiten hat. Wie kann ich steuern, dass beim Druck dieses Tabellenblattet bei der ersten Seite nur eine Kopfzeile und bei den restlichen Seiten nur die Fusszeile erscheint?
Option Explicit
Sub Drucken()
Dim ws As Worksheet, S As Integer, i As Integer
Set ws = Sheets("Tabelle1")
S = ExecuteExcel4Macro("Get.Document(50)")
With ws.PageSetup
.LeftHeader = ""
.CenterHeader = "Rabdudai"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
For i = 1 To S
If i > 1 Then
ws.PageSetup.CenterHeader = ""
ws.PageSetup.CenterFooter = "Schnuppeldiduppeldi"
End If
ws.PrintOut from:=i, To:=i
Next
End Sub