Druckereinstellungen

Forumthread: Druckereinstellungen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Druckereinstellungen

21.04.2008 10:34:45

Artur

Hallo User,
in einer Mappe mit 23 Blättern muß ich verschiedene Blätter mit unterschiedlichen Druckeinstellungen drucken. Der Befehl >Private Sub Workbook_BeforePrintDieseArbeitsmappe Gruß Artur

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Druckereinstellungen

21.04.2008 10:38:00

Hajo_Zi
AW: Druckereinstellungen

21.04.2008 10:45:07

Artur

AW: Druckereinstellungen

21.04.2008 10:38:00

Hajo_Zi

Hallo Artur,
das geht nur über ein Extra Makro so in der Art


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

AW: Druckereinstellungen

21.04.2008 10:45:07

Artur

Guten Morgen Hajo,
vielen Dank für Deinen Hinweis. Ich werde Deinen Vorschlag einmal entsprechend angepaßt einfügen. Sollten weiterhin Probleme auftauchen würde ich mich noch mal melden.
Gruß Artur