用CreateOleObject创建的WORD文档弹出模态的预览窗体

用 CreateOleObject 创建的EXCEL文档使用
  FExcelWorkBook.PrintOut(1,FExcelWorkBook.worksheets.count,1,True,'',False,True,'');
后弹出的预览窗体是模态的而用 CreateOleObject 创建的Word文档 ,在使用PrintPreview后弹出的是非模态的预览窗体,
请问一下在 WORD 如何调用 PrintOut 方法弹出模态的预览窗体,或者如何知道预览窗体关闭的消息.
var
  AFileName:String;
  FWord,FDoc: Variant;
begin
  try
    FWord := CreateOleObject('Word.Application');
    //WORD程序的执行是否可见，值为False时程序在后台执行
  except
    ShowMessage('创建word对象失败！');
    Exit;
  end;
  try
  FDoc:=FWord.Documents.Open(ExtractFilePath(Application.ExeName)+ '\Rep\投标书.doc');  //插入图片
  AFileName:='F:\My Documents\My Pictures\Water lilies.bmp';
  FWord.Selection.InlineShapes.AddPicture(FileName:=AFileName,LinkToFile:=False,
        SaveWithDocument:=True);
  FWord.Selection.ParagraphFormat.Alignment:=1 ; //居中
  FWord.Visible := true;  FWord.ActiveDocument.PrintPreview ; //如何出来模态的预览窗体,  FDoc.Saved:=True;  finally
    FDoc.close(False);
    FWord.Quit(False);
    FWord:=Unassigned;
  end;
end;