PrintDoc - Drucken von Worddokumenten über Konsole

[Jelly]

Aus eigenem Bedarf, und nach langem erfolglosem Suchen im Internet, brauchte ich ein Tool um Worddokumente einfach ausdrucken zu können. Winword bietet zwar die Möglichkeit über
shellexecute (application.Handle,'print','MeinDokument.doc',nil,nil,SW_SHOWNORMAL) ; auszudrucken, jedoch besitzt dieser Aufruf keinerlei Konfigurationsmöglichkeiten. So wird immer der eingestellte Standarddrucker als Ausgabe benutzt. Genausowenig kann der Ausgabeschacht benutzt werden, neben noch weiteren Einschränkungen.

Also wens interessiert, findet hier die Downloadmöglichkeit und kann das Tool nutzen. Es ist eine simple Konsolenanwendung, die durch Übergabe von Parametern konfiguriert wird. Die Optionen, die PrintDoc bietet sind:

• Ausgabe an beliebigem Drucker
• Ausgabeschacht
• Anzahl der Kopien
• Ausgabe in eine Datei

Geplant ist zumindest noch die Auwahl der zu druckenden Seiten. Wer noch interessante Ideen sieht, kann die ja hier posten.

Download PrintDoc v.1.0

[s.h.a.r.k]

Ich muss echt sagen: Super Tool!!!

Ich arbeite gerade an einem Programm welches mehrere Seiten ausdruckt, teils direkt über Delphi und teils über Word. Nun muss ich leider auf einem anderen Drucker als auf dem Standarddrucker ausdrucken und Word machte das leider bisher nicht mit, bzw. ich habe bisher noch keinen Befehl dafür gefunden den Drucker in Word zu ändern.

Brauche zwar nur ein Teil des Programms, d.h. ein Teil des Source, aber ich muss sagen vielen vielen Dank!!!

PS: Du kennst dich scheins recht gut mit dem Drucken aus und hätte da auch gleich mal ne Frage an dich: Ich habe zwei Drucker an einem PC angeschlossen (über einen Printserver) und der Standarddrucker ist ein Laserdrucker (schwarz/weiß). Der andere Drucker ist ein Wachsdrucker (farbe). Soweit so gut, wenn ich nun per Delphi auf dem Farbdrucker ausdrucke, dann kommt da alles schwarz/weiß raus, wenn ich aber über Word da drauf ausdrucke in Farbe! (Standarddrucker bleibt der schwarz/weiß-Drucker). Weißt du wie ich über Delphi auch farbig drucken kann und es nicht schwarz/weiß raus kommt!?

[mischerr]

Doch, wirklich ein nettes Tool!
Muss Word installiert sein, oder reicht auch der MS Word-Viewer?

[Edit]
Schade, der WordViewer reicht nicht.
Aber wenn das zu druckende DOC mehrere Seiten hat, erscheint noch kurz ein PopUp "Drucke Seite x von y".

Weiss zufällig jemand, ob man den noch unterdrücken kann, so dass auch im Hintergrund gedruckt werden kann?
[/Edit]

[Edit2]
Der o.g. Dialog kann wie folgt unterdrückt werden:

...vor Document.Open...
W.DisplayAlerts:= wdDisplayAlertsNone; ...bei W.PrintOut ändern
Background:= True, ...nach W.PrintOut

Delphi-Quellcode:

while W.Application.BackgroundPrintingStatus<>0 do
      Sleep(100);

[/Edit2]

[Jelly]

Das mit dem Background := true ; macht aber Probleme, deshalb hatte ich das mal auf false stehen. Der Grund ist, dass Word eventuell wieder geschlossen wird, bevor alle Seiten aufbereitet sind.

[mischerr]

Ja, deswegen die Überprüfung von "BackgroundPrintingStatus"...

[Jelly]

Oh, das hatte ich ganz übersehen.