delphi调用word问题

Question

FWord := CreateOleObject('Word.Application');
.
.
.
.
FDoc := FWord.Documents.Add;
FDoc.PrintPreview  //打印预览
.
.
问题:我希望在打印预览这里,等待,我关掉预览在继续执行.??????????????????????????????????????????????????????????

Answer 1

把以上的事件写在BeforePrint 中。

Answer 2

AfterPreview  事件中自己先试

Answer 3

同意上面两位的说法.
还有,最好用try 语句

Answer 4

FWord := CreateOleObject('Word.Application');
上面两位好像没看懂，我调用word还有什么事件晕！
高手都休息了

Answer 5

帮忙顶加分，因该用api实现吧？

Answer 6

树袋熊的意思应该是建议你用delphi中的word控件，这样就有事件了。
先定义全局变量
var myHandle: THandle;然后：
  FDoc := OleContainer1.OleObject;
  FDoc.PrintPreview;
  myHandle := CreateEvent( nil, FALSE, FALSE, nil );
  WaitForSingleObject(myHandle,INFINITE);
  ResetEvent(myHandle);
  在AfterPreview中：
  SetEvent(myHandle);

Answer 7

开始一句  FDoc := OleContainer1.OleObject;  错了不要