Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
968to972
968to972
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckereinstellungen

Forumthread: Druckereinstellungen

Druckereinstellungen
21.04.2008 08: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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckereinstellungen
21.04.2008 08: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



Anzeige
AW: Druckereinstellungen
21.04.2008 08: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
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige