ich möchte, dass es mir die fusszeile erst ab der 2. seite aufdruckt.
ich gehe mal davon aus, dass dies mit einer VBA-lösung möglich wäre. weiss hier jemand rat?
vielen dank zum voraus.
marius
Option Explicit
Sub Drucken()
' Bilder in Kopfzeile nur für XP
' ich glaube der Ansatz ist von Ramses (Rainer)
Dim iPage As Integer
For iPage = 1 To ExecuteExcel4Macro("GET.DOCUMENT(50)")
With Worksheets("Tabelle1")
If iPage = 1 Then
.PageSetup.CenterFooter = "Seite 1"
.PageSetup.RightHeaderPicture.Filename = _
"E:\Eigene Dateien\Eigene Bilder\Bilder\bbapril_big08.jpg"
Else
.PageSetup.CenterFooter = "größer Seite 1"
.PageSetup.RightHeaderPicture.Filename = _
"E:\Eigene Dateien\Eigene Bilder\Bilder\bbtracy_big10.jpg"
End If
.PrintOut from:=iPage, To:=iPage
End With
Next iPage
End Sub
Sub Drucken()
' Bilder in Kopfzeile nur für XP
' ich glaube der Ansatz ist von Ramses (Rainer)
Dim iPage As Integer
For iPage = 1 To ExecuteExcel4Macro("GET.DOCUMENT(50)")
With Worksheets("Tabelle1")
If iPage = 1 Then
.PageSetup.CenterFooter = "Seite 1"
Else
.PageSetup.CenterFooter = "Seite .."
End If
.PrintOut from:=iPage, To:=iPage
End With
Next iPage
End Sub
nun geht es ohne fehlermeldung; jedoch noch nicht so wie ich es mir vorstelle.
eigentlich möchte ich drei fixe fusszeilen erfassen:
Linker Abschnitt: Firma XY, Schweiz
Mittlerer Abschnitt: Budgetwerte 2008
Rechter Abschnitt: MMM/08.01.08
nun müsste es mir beim drucken des 8-seitigen dokuments auf der 1. seite die erfassten fusszeilen nicht drucken; sondern erst von seite 2 - 8...
was meinst du, ist sowas möglich?
gruss & nochmals vielen dank für deine geduld.
marius