Hallo,
ich brauche bitte Hilfe.
Ich habe eine Excel-Datei, die 20 Tabellenblätter (sheets) enthält. Je Tabellenblatt gibt es beim Ausdrucken 1 - 5 DIN-A4 Seiten. Ich möchte beim Ausdrucken eine eigene, andere Reihenfolge der Seiten der einzelnen Tabellenblätter. Ich brauche eine Prozedur, die mir alle Tabellenblätter ausdruckt, je Tabellenblatt aber nur die Seiten 1 und 3. Und diese beiden Seiten auch noch als Duplex-Druck.
Wie man den Duplex-Druck in Excel einstellt, weiss ich (Seitenlayout, Seite einrichten, Optionen).
Wer kann mir helfen? Ich würde mich sehr freuen!
Viele Grüße,
Oliver
Hi,
in der Regel kann man das unter "Drucker einrichten" > Eigenschaften > usw. einrichten !
Auch den Duplexdruck.
Jack
(05.02.2018, 21:31)happy-jack schrieb: [ -> ]Hi,
in der Regel kann man das unter "Drucker einrichten" > Eigenschaften > usw. einrichten !
Auch den Duplexdruck.
Jack
In Word geht das, aber in MS Excel 2010 geht das nicht.
Moin,
ich hab da mal ne Frage:
Wenn Word die Einstellungen zulässt und Excel nicht, könnte ich mir vorstellen, das zu umgehen mit einem Work around.
Richte einen PDF-Drucker als Standarddrucker ein.
Drucke dann aus dem PDF deine gewünschte Reihenfolge,
Da gibt es mittlerweile auch viele kostenlose Tools
Das mache ich seit vielen Jahren so, seit ein vorschneller Druckbefehl die Papierkasette völlig unnötige leerte. Erst Pdf, und wenn das ok ist, dann Papier
Hallo Oliver,
kannst es mal damit probieren. Allerdings funktioniert der Duplexdruck nur, wenn die Seitenumbrüche nicht manuell gesetzt wurden.
Sub Drucke1und3()
Dim oWs As Worksheet
Dim rngSeite2 As Range
On Error Resume Next
For Each oWs In Worksheets
Set rngSeite2 = oWs.Range(oWs.HPageBreaks(1).Location, oWs.HPageBreaks(2).Location.Offset(-1)).EntireRow
If Not rngSeite2 Is Nothing Then
rngSeite2.Hidden = True
oWs.PrintOut From:=1, To:=2
rngSeite2.Hidden = False
End If
Next oWs
End Sub
Gruß Uwe
Etwas OT (kann aus dem Thread abgespalten werden): Anmerkung zum Duplexdruck:
Angesichts des permanenten Tintenproblems (Drucker muss am Strom hängen, damit er die Düsen gängig hält) habe ich mir einen kleinen Laserdrucker SAMSUNG gekauft (Monochrom) für 90 Euro, zuzüglich einer Tonereinheit für 56 Euro (da die erste immer kaum gefüllt ist). Egal Stromverbrauch (schaltbare Steckerleiste), egal Ozonbelastung: Ich will nur einmal im Monat bei gleichbleibender Qualität drucken können. Adé Tintenp...sser.
Es ist einfach ein tolles Gefühl, wie schön die Seite aus dem Drucker rauskommt! Jahrzehnte habe ich ökologische Bedenken gehabt, und nie schöne Ausdrucke.
Es gibt Laser mit automatischem Duplex. Das aber empfehle ich auf keinen Fall! Denn dann wird die Mechanik störanfälliger. Und man ist auf Original-Toner angewiesen (in den Fällen, wo es Dritt-Toner gibt), damit der nicht in der Mechanik beim Duplexen verschmiert. Ihr werdet es nicht glauben: Die Original-Tonerkartuschen haben bezüglich der Abmessungen Patentschutz. Die Nachmacher müssen ihre Kartuschen also 2 bis 6 mm größer machen (warum nicht kleiner, weiß ich gerade nicht), und das quält den Druck-Papierweg. Es quietscht und verschmiert!
Das manuelle Duplexen ist viel besser: Beim Druck kreuzt man Duplex an. Dann druckt der Drucker einen Stapel mit der einen Blattseite, also bei 9 Seiten zuerst die 5 Seiten 2,4,6,8,leer. Dann legt man den Stapel ohne Drehen wieder in den Papierschacht ein und druckt die Rückseite 1,3,5,7,9 über eine Hardware-Druckertaste auf die 5 Blätter. Vorteil: Wenn man möchte, kann man den Stapel vorher abkühlen lassen, was die Fehlerwahrscheinlichkeit stark verringert.
Das manuelle Duplexen ist im Grunde nur ein Papierstapel-Umlegen und ein Tastendruck. Dafür hat man einen simpleren und günstigeren (und in meinem Fall auch viel kleineren) Drucker. Außerdem geht man doch eh am Ende zum Drucker, um sich den Ausdruck zu holen, oder?
Softwareseitig ist nichts zu tun. A5-Broschürendruck bietet der Drucker übrigens auch. Dann kommen 4 Seiten auf ein Blatt, und die Blätter werden dann mittig gefaltet.
@Kuwer
Klasse!!
Es funzt!! Ich bin hellauf begeistert!
Dank Deiner Hilfe sieht mein Code jetzt so aus:
Sub Drucke1und3()
Dim oWs As Worksheet
Dim rngSeite2 As Range
On Error Resume Next
For i = 3 To 11
Set oWs = Worksheets(i)
Set rngSeite2 = oWs.Range(oWs.HPageBreaks(1).Location, oWs.HPageBreaks(2).Location.Offset(-1)).EntireRow
If Not rngSeite2 Is Nothing Then
rngSeite2.Hidden = True
oWs.PrintOut From:=1, To:=2
rngSeite2.Hidden = False
End If
oWs.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Next i
End Sub
So druckt er mir dann Seite 1 und 2 im Duplexdruck und anschließend Seite 3 auf einem extra Blatt aus.
Nochmals vielen, vielen Dank für Deine Mühe!!!!