WordApplication in Thread ausführen?

**Chemiker**

Hallo bwolf,

ich glaube nicht das man das mit einem Thread lösen kann, ich vermute vielmehr das, dass Problem an MSWord liegt. Mit PrintOut wird kein Ausdruck im Hintergrund ausgeführt. Wenn man also drucken will, so muss der Ausdruck im Vordergrund gestartet werden, was bedeutet das Word während dieser Zeit blockiert ist. Normaler Weise wird mit FALSE der Hintergrunddruck verhindert, sodass der Ausdruck auch erfolgt.

Es gibt eine alternative zur PrintOut-Methode und zwar die Execute – Methode des Drucken – Dialogfeldes.

Ich habe mal ein kleiner Code – Schnipsel als Beispiel. Er müsste natürlich noch an Deine Bedürfnisse angepasst werden. Für Serienbriefe habe ich die Exceute – Methode zwar noch nicht verwendet, aber vielleicht funktioniertes.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

const

   coDoc= 'c:\Test.dot';

var

  Word: _Application;

  Doc: _Document;

  Para: Paragraph;

  aRange: Range;

  oleParam: OleVariant;

begin

  Word:= CoWordApplication.Create;

  Word.Visible:= TRUE;

  oleParam:= coDoc;

  Word.Documents.OpenOld(oleParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

                          EmptyParam, EmptyParam, EmptyParam,EmptyParam,

                          EmptyParam);

 Word.Dialogs.Item(wdDialogFilePrint).Execute;

 ShowMessage('Alles Klar');

 oleParam:= FALSE;

 Word.Quit(oleParam,EmptyParam,EmptyParam);

end;

Bis bald Chemiker

WordApplication in Thread ausführen?

Re: WordApplication in Thread ausführen?

Forumregeln