word 不能打印预览！！

下面代码哪里错了，为什么不显示打印预览！！
if  OpenDialog1.Execute then 
   FileName := OpenDialog1.FileName; 
   ConfirmConversions := False; 
   ReadOnly := False; 
   AddToRecentFiles := False; 
   PassWordDocument := ''; 
   PassWordTemplate := ''; 
   Revert := True; 
   WritePassWordDocument := ''; 
   WritePassWordTemplate := ''; 
   Format := wdOpenFormatDocument; 
   Visible:=true; 
    wa:=WordApplication1.Create(nil); 
    wa.Connect; 
    Wa.Documents.Open(FileName, ConfirmConversions, 
    ReadOnly, AddToRecentFiles, PassWordDocument, PassWordTemplate, 
    Revert, WritePassWordDocument, WritePassWordTemplate, Format,visible,EmptyParam, 
    EmptyParam,EmptyParam,EmptyParam ); 
    wa.ActiveDocument.PrintPreview;