//
//QuickReport是你传递的TQuickRep的对象实例
//
  Try
    QRPreview.QRPrinter.Cleanup;
    QRPreview.QRPrinter := nil;
    QuickReport.QRPrinter.Load( YourQRPFileName );
    QRPreview.QRPrinter := QuickReport.QRPrinter;
  Except
    MessageDlg( '该文件不是合法的QuickReport文件,或已被破坏!' ,
                    mtError, [mbOK], 0 );
  End;

解决方案 »

  1.   

    pipai 不行。
    我的意思是如何实现像DELPHI的QUICKREPORT的打印预览功能。自己编程实现。就是如何装载一个qrp文件。用QRPREVIEW;
      

  2.   

    把我做的prevwin发给你,请查收
      

  3.   

    调用自己的preview form 的方法大致如下:
    ...
    procedure TBHGDForm.FormCreate(Sender: TObject);
    begin
      PrevForm := TPrevForm.CreateForm( nil, QuickReport );
    end;procedure TBHGDForm.FormDestroy(Sender: TObject);
    begin
      PrevForm.Free;
    end;procedure TBHGDForm.QuickReportPreview(Sender: TObject);
    begin
      PrevForm.QRPreview.QRPrinter := TQRPrinter(Sender);
      PrevForm.Show;
    end;
    ...
      

  4.   

    给我发一个示例吧。麻烦您了。
    [email protected]
    一定给分。谢谢
      

  5.   

    例子已发送(含PrevForm及调用方法,一个存盘的QRP文件 Delphi5下通过)