Win98 Standarddrucker wechseln

Hallo,
ich programmiere Netexpress 3.0 (Cobol) und habe folgendes Problem.

Ich rufe aus meinen Programmen Winword als
Server auf und übergebe meinen Text an Winword. Wenn ich diesen jetzt drucken will
benutzt Winword immer den als Standarddrucker eingestellten. Ich will diesen aber frei wählen können. Also brauche ich entweder einen Befehl um den Winword-Server zum ändern des Druckers zu zwingen oder ich muß per API die Möglichkeit haben den aktuellen Standardrucker abzufragen und diesen neu einstellen zu können.

Kennt jemand eine Lösung hierfür.

Einfach per VBA in Word:
(Makro im Dokument)

strOldPrinter = oWord.ActivePrinter

oWord.ActivePrinter = Faxdrucker

(odr anderer drucker…)

MfG Thomas Krim