Bilder ohne Text drucken

[d'r Bastler]

Moin allerseits,

will man in WORD Dokumente ohne Bilder drucken, lässt sich das mit Optionen > Erweitert > Drucken > Entwurfsmodus realisieren. Ich möchte aber nun das Gegenteil, nämlich den Druck des selben Dokuments ohne Text, nur die Bilder.

Gibt es da einen bessere Methode, als dem gesamten Text die Schriftfarbe weiß zuzuordnen und dann das Dokument im Normalmodus zu drucken?

Hintergrund: Mein Laser druckt günstig wunderbaren (auch farbigen) Text. Nur die hochauflösenden Bilder haben eine bessere Qualität verdient und sollen deshalb per teurem Tintenspritzer präsentiert werden. Es geht um Dokumente mit mehr als 200 Seiten, davon ca. 20 % Bild.

Lieben Dank vorab!

[Gast]

Du könntest alle Bilder in die Zwischenablage kopieren und dann mit dem IrfanView per CMD-Line als Bild abspeichern oder drucken.
Leider kann man hier keinen Link einfügen, also selber mal mit "cmdline irfanview" googlen.

[d'r Bastler]

Moin Gast,

wie schon erwähnt, geht es um mehr als 200 Seiten. Da werde ich sicher keinen Umweg über Zwischenablage/IV nehmen. Dann doch lieber per Textfarbe weiß ... Dennoch danke.

Grüße

[Gast]

Bei 200 Images ist die Zwischenablage dein kleinstes Problem und sicherlich keine Performance Einbuße, zumal das direkt von Word unterstützt wird.

[d'r Bastler]

Moin,

dann vielleicht noch mal zur Veranschaulichung: Es gibt ein Dokument mit über 200 Seiten, von denen rund 75% Bilder enthalten. Zum Druck stehen zwei Drucker zur Verfügung: ein Laser, der den Text drucken soll, ein Tintenspritzer für die Bilder. Es werden also zwei Druckdurchgänge benötigt. Als Bild:

DruckKombi.png (9.23 KiB) 1582 mal betrachtet

Das linke Drittel soll der Laser, das mittlere der Tintler, das gewünschte Ergebnis sieht man dann rechts.

Als Druckoptionen sind auf beiden Druckern möglich und benöigt: Duplex-und Broschur-Druck, Paginierung und andere WD-übliche Verdächtige.

Testdrucke heute haben schon mal Hinweise geliefert, wie man denn welche bereits bedruckten Seiten wie herum in den Tintler einlegt und dort manuell wendet, leider aber auch gezeigt, dass der Laser trotz o.g. Einstellungen auf den Druck des Bilder (noch) nicht verzichtet. Aber das bekomme ich wohl geregelt.

@Gast: Wenn Du dich anmeldest, kannst Du auch hilfreiche Links setzen kostenfrei...

Schöne Grüße

[d'r Bastler]

Moin allerseits,

na, dann melde ich mal einen ersten VBA-Fortschritt. In alter XL-Manier habe ich den Weg Shapes.Visible (werden dann ja auch nicht gedruckt) versucht und folgendes gelernt:

Code: Alles auswählen

Option Explicit

Sub ConvertToShape()                'Im Text eingefügte Bilder sind erst einmal InlineShapes.
Dim i As Integer, iShps As Integer  'Um sie bearbeiten zu können, müssen sie zu Shapes werden
iShps = ActiveDocument.InlineShapes.Count
    For i = 1 To iShps
        ActiveDocument.InlineShapes(i).ConvertToShape
    Next i
End Sub

Sub HideShapes()
Dim i As Integer, iShps As Integer
iShps = ActiveDocument.Shapes.Count
    For i = 1 To iShps
        ActiveDocument.Shapes(i).Visible = msoFalse
    Next i
End Sub

Sub ShowShapes()
Dim i As Integer, iShps As Integer
iShps = ActiveDocument.Shapes.Count
    For i = 1 To iShps
        ActiveDocument.Shapes(i).Visible = msoTrue
    Next i
End Sub

In der Praxis also:
Erste Runde: Shapes ausblenden und Text auf dem Laser drucken.
Zweite Runde: Alles markieren und auf Schriftfarbe weiß setzen, Shapes einblenden und auf dem Spritzer drucken
Dritte Runde: Dokument schließen OHNE zu speichern.
Beim erneuten Öffnen ist das Dokument unverändert.

Zufrieden? Nö! Ich habe den Trick mit Visible auch mit dem Text, der ausschließlich in Tabellen steht, versucht, aber leider ohne Erfolg. Ich konnte die Tabellen zwar zählen und etliche andere Properties auslesen und setzen. Sie un/sichtbar zu machen, wollte mir nicht gelingen.

Aber vielleicht hat dazu ja jemand einen cleveren Tip

Schöne Grüße

[Gast]

Hallo,

mit Shapes Visible = false wird allerdings das Layout verändert, was ja nicht so prickelnd sein dürfte.

Meine erste Idee war, aus dem original Dokument einfach zwei neue temporär zu generieren, eins mit dem Text und dabei die Shapes durch leere unsichtbare Rechtecke ersetzen, damit das Layout erhalten bleibt und ein zweites, wohinein die Shapes an die gleiche Stelle kopiert werden, wie im original. Das eine Dokument könnte man dann auf dem Laser ausdrucken, das andere auf dem Tintenstrahler.

Ob das jedoch ein brauchbarer Ansatz ist, müsste man erstmal austesten.

Gruß
Ulrich

[d'r Bastler]

Moin Ulrich,

lieben Dank für Deine Ideen.

Dass da mit in/visible Shapes kleine Layoutverschiebungen kann ich bestätigen: Meine manuellen Bildunterschriften rutschen um die ausgeblendet Bildhöhe nach oben. Die in an das Shape gebundene umzuwandeln und wie bisher im Layout, das Bild als letztes auf der Seite zu haben sehe ich da mal als Lösung.

Die Idee mit den temps gefällt mir prinzipiell, habe aber keine Idee, wie ich das so automatisiert umsetzen kann, ohne dass ich mir bei den Seitenzahlen den Wolf bastle ...

Schöne Grüße

[knobbi38]

Hallo,

Die Idee mit den temps gefällt mir prinzipiell, habe aber keine Idee, wie ich das so automatisiert umsetzen kann

Du erzeugst zwei identische Kopien deines Dokuments und öffnest dann jeweils eins für die Bearbeitung und den anschließenden Druck.

Was die Shapes betrifft, kann das Layout erhalten werden, wenn du für die Grafiken die Helligkeit auf das Maximum gesetzt wird:

Code: Alles auswählen

Shapes(1).PictureFormat.Brightness = 1!

Dann kannst du das Document drucken, schließen ( ohne es zu speichern ) und anschließend die Temp-Datei löschen.

Um nur die Grafiken zu drucken, hast du bereits ja eine Lösung gefunden, bei der alle Texte weiß eingefärbt werden. Dafür wäre dann die zweite Temp-Datei.

Gruß Ulrich