紧急求助：如何打印MDI文件？

[fisher_older]

试图调用MODI控件打印MDI文件，程序如下：

procedure TForm.Button1Click(Sender: TObject);  
begin  
  doc := IDispatch(CreateOleObject('MODI.Document')) as IDocument;  
  doc.create('c:\test.mdi');  
  MiDocView1.Document := doc;  
  
  if printdialog1.execute then
  begin
    doc.PrintOut(printdialog1.FromPage, printdialog1.ToPage, printdialog1.Copies,printdialog1.Name, '',false, miPRINT_PAGE);
  end;
end;  

运行到Printout老是提示“未指定错误”。
请问该怎么办？

[fisher_older]

有人做过吗？