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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen