hier ist euer Sorgenkind *g*...
tut mir leid aber ihr habt mir bestimmt toll geholfen, aber ich bin zu blöd...
ich hab unter einer x-beliebigen Tabelle mein vb editor aufgemacht und folgenden code in ein neues modul gelegt...:
Sub Drucken()
Dim iPage As Integer
For iPage = 1 To ExecuteExcel4Macro("GET.DOCUMENT(50)")
With Worksheets("Tabelle1")
If iPage = 1 Then
.PageSetup.RightHeaderPicture.Filename = _
"D:\Eigene Dateien\Eigene Bilder\Bilder\bbapril_big08.jpg"
Else
.PageSetup.RightHeaderPicture.Filename = _
"D:\Eigene Dateien\Eigene Bilder\Bilder\bbtracy_big10.jpg"
End If
.PageSetup.RightHeader = "&G"
.PrintOut from:=iPage, To:=iPage
End With
Next iPage
End Sub
tja...funktioniert bestimmmt nicht weil ich das völlig falsch gemacht hab, oder?...hab die bilder pfade gegen gültige ausgetauscht und erstmal konnte ich ich nix sehen...weder normal noch in der voransicht, und logischerweise kam auch nix mit bildern raus...
Nur als Info...es kommt über die gesamte Kopfzeile eine Grafik, aber das ist erstmal nebensächlich...
so...wenn ihr jetzt genug gelacht, oder nur stumpf den kopf geschüttelt habt (wofür ich vollstes Verständnis habe)...wäre es toll wenn ihr mich auf den "richtigen Pfad" schicken könntet...
danke
Hansi