Office: "Modales" Drucken von Dokumenten mit ShellExecute ?

Hallo zusammen,

ich drucke derzeit über VBA/Excel beliebige Dokumente wie folgt aus:

Sub PrintOutDocument(File As String)
'Verweis auf "Microsoft Shell Controls And Automation", d.h. Shell32.dll, erforderlich !
Dim shl As Shell32.Shell
Set shl = New Shell32.Shell
shl.ShellExecute File, "print", 1
Set shl = Nothing
End Sub

Läuft prima - allerdings nur asynchron, d.h. die Dokumente werden zum Drucker gesendet und kommen nicht in der beauftragten Reihenfolge dort raus. Vielmehr stehlen sich kleine Docs nach vorne vor... Ich möchte das synchron, modal, oder wie auch immer - so dass die Docs immer in der Reihenfolge ihrer Druckbefehle gedruckt werden.

Wie macht man sowas ?

Win7, Office 10

LG

:)

 

Win7, Office 2010 meinte ich

 

Inzwischen habe ich eine VBA-Routine "Shell and Wait" gefunden. Sie ruft einen Kommandozeilenbefehl / oder -programm auf und setzt erst fort, wenn er/es ausgeführt und beendet wurde.

Die neue Frage lautet also:

Wie kommandiere ich den Druck eines Dokumentes mittels seines Standardprogrammes über die Kommandozeile ? So, dass das Standardprogramm - sichtbar oder nicht ist mir eigentlich egal - anschließend gleich beendet wird ? Wer weiß das ?

Dann poste ich euch die Gesamtlösung.

 

hallo davinus,

Excel als Programm mit Hilfe von API-Funktionen zum Ausführen beliebiger -Druckaufträge zu benutzen, ist nicht gerade das, was die Office-VBA-Götter sich für eine Tabellenkalkulation als unabdingbar vorgestellt haben. Frei nach Toyota, nichts ist unmöglich, aber warum soll man sich die Mühe machen, wenn jeder Druckauftrag auch von seinem zugehörigen Standardprogramm erledigt werden kann. Und dann gibt es ja noch DOS-Batches, Scripting, autoit und jede Menge andere Programmiersprachen.

Du müsstest den Spooler beeinflussen, um Druckaufträge in der gewünschten Folge zu auszuführen.

Hang loose, haklesoft

 

Hallo haklesoft,

dann wurde ich ja immerhin von dir "erhört"... :-) Ja, du magst Recht haben - haben dieselben Götter aber nicht gerade die vielfältigen "Selbststrickmöglichkeiten" gepriesen ?

Okay, zu Erklärung: Das Excel-Tool verwaltet Dokumente (PDF, DOC, JPG... grundsätzlich jedes druckbare Dateiformat) und deren Pfade. Irgendwann sollen diese Dokumente jeweils mit einem Trennblatt - das ist ein Excel-Sheet desselben Workbooks mit bestimmten Variablen und Verzierungen - in einem Rutsch ausgedruckt werden. Bisher habe ich die Dokumente einzeln doppelgeklickt und gedruckt - insgesamt wurden da so 20 Dokumente mit insgesamt 250-350 Blatt gedruckt. In Zukunft will ich den Druck gleich in dem Verwaltungssheet per Buttonclick nur anstoßen und mich dann faul mit nem Kaffee in die Sonne legen ;-)

Bislang saust die Routine durch und die Trennblätter schlängeln sich dabei nach vorne. Mit einer 30-Sekunden-Druckverzögerung kriege ich das nun meistens verhindert. Aber sauberer wäre ein ereignisorientiertes Warten.

Any ideas ? ;-)

 

Hallo davinius,

im "normalen" VB benutze ich zum Ausführen fremder Programme eine Klasse, die mir bei Bedarf den Durchlauf des Prozesses mitteilt.
Das Teil habe ich nicht selbst entwickelt, kann aber die Quelle nicht mehr nennen. In der vorliegenden Form ist sie aber nicht für Win7/64 ausgelegt!

Hang loose, haklesoft Code:

 

Hallo Haklesoft,

danke für deine Beiträge !

Kann es in Anbetracht des langen Quelltextes nicht doch sinnvoller sein, über die Kommandozeile zu drucken ? Vor allem, wo das Ausführen beliebiger Anwendungen ja schon funktioniert ?

Außerdem möchte ich dem Code nicht erst sagen müssen, wo sich das Standardprogramm zum Drucken der Datei befindet - und wie es heißt.

Einstweilen habe ich eine Verzögerung von 30 Sekunden zwischen den Druckaufträgen eingebaut - was das Problem zumindest symptomatisch löst.

Ich schließe den Thread damit für mich ab und sage herzlichen Dank !

;-)