AW: Kopfzeile befüllen
10.11.2008 22:42:39
Frank
Hallo Hajo!!!
Erst einmal Danke, der Ansatz war echt Spitze und funktioniert nach Umbau auch fast perfekt, aber nur fast!
Mein neuer Code:
Sub Drucken_Seite_1_Urlaubspostadressen()
' 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("Urlaubspostadressen")
If iPage = 1 Then
.PageSetup.CenterHeader = "Adressen für Urlaubs- & Festtagswünsche"
End If
.PrintOut from:=1, To:=1, Copies:=1, Collate _
:=True
End With
Next iPage
End Sub
Nun werden immer zwei Seiten gedruckt, es soll aber nur eine Seite und zwar Seite 1 gedruckt werden, damit ich vor dem Druck der Seite 2 das Blatt drehen kann!!!! Wo ist mein Fehler?
Gruß Frank H.