benutzerdef. Kopfzeilen

Forumthread: benutzerdef. Kopfzeilen
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: benutzerdef. Kopfzeilen

26.02.2007 17:53:33

Böttcher

Hallo,
ich habe folgendes Problem mit Kopfzeilen:
Die benutzerd. Kopfzeile soll erst auf der Seite 2 sichtbar werden.
Die Seite 1 besitzt eine Anschrift usw. und es sieht nicht gut aus, wenn darüber die
Kopfzeile zu lesen ist.
Kann mir hier jemand helfen ? Ich sage jetzt schon danke.
win.

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: benutzerdef. Kopfzeilen

26.02.2007 18:45:00

Peter

AW: benutzerdef. Kopfzeilen

26.02.2007 18:45:00

Peter

Hallo win,
mit einem eigenen Druck-Makro sollte es sicherlich funktionieren:


Sub Drucken()
Dim iPage As Integer
For iPage = 1 To ExecuteExcel4Macro("GET.DOCUMENT(50)")
With Worksheets("Tabelle1")
If iPage = 1 Then
.PageSetup.CenterFooter = "Seite 1"
.PageSetup.LeftHeader = ""
.PageSetup.CenterHeader = ""
.PageSetup.RightHeader = ""
Else
.PageSetup.CenterFooter = "Seite " & iPage
.PageSetup.LeftHeader = ""
.PageSetup.CenterHeader = "&16Dies ist die Kopfzeile"
.PageSetup.RightHeader = ""
End If
.PrintOut from:=iPage, To:=iPage
End With
Next iPage
End Sub

Gruß Peter