请问如何在多线程中启动WORD并打印文档

Question

老兄，这个问题太过复杂，首先要建立一个以TTHREAD为基类的多线程类单元（.PAS文件），然后，在OnStart事件里写一些启动Word的代码，如果需要并行的打印功能，则需要另外建立一个多线程类单元(.PAS文件），就这样。

Answer 1

现写一个单线程的，然后在TTHREAD对象中调用就可以了

Answer 2

好象不行，如下面，
在线程的CREATE中建立一个TWORDAPPLICATION，和TWORDDOCUMENT类的实例，然后在EXCUTE中执行随便执行一句打印文字的语句，就报错。

Answer 3

多线程的就向楼上的那位老兄说的就可以了
至于启动Word打印，用TWordApplication也可以，
用OLE也可以。
var
  W: Variant;W := CreateObject('Word.Application');

Answer 4

WORD 在单线程下面打印是没问题的，但是在多线程下面，会出现很奇怪的错误，具体错误忘记了，好象是说建立输入对象，不能同时输出对象。创建TWordApplication和TWordDocument 没有问题，错误是在EXCUTE中执行WordDoc.Selection.TypeText('dd');时候出现的，排除语法错误，因为在单线程中该句完全执行正常!