我想用自己的打印预览代替delphi自带的预览窗
做法是:在自己做的替代单元中放入一个Tqrpreview控件;
在Tquickrep的onpreview事件里添加代码
frm_preview.qrpreview1.qrprinter := quickrep1.qrprinter;
frm_preview.show; 现在的问题是自做的Frm_preview预览时;窗体下并没有发现报表窗体中的内容;

解决方案 »

  1.   

    http://218.56.11.178:8020/web/index.aspx->下载基地->程序员读物->fastreport报表使用手册
      

  2.   

    sorry;标题打错;是qr; WWWWA(aaaa) ( ) 兄弟指点一下;
      

  3.   

    jpyc(九品御厨-进军嵌入式) : 《fastreport报表使用手册》我下载过来看了;没发现我想找的东西;可能是太长了;我一时没找到;哥们帮个忙就直接告诉我好了;^_^;
      

  4.   

    哥们你是不是写反了啊!
    quickrep1.qrprinter:=frm_preview.qrpreview1.qrprinter;
      

  5.   

    quickrep1.preview;
    frm_preview.qrpreview1.qrprinter := quickrep1.qrprinter;
    frm_preview.show;
      

  6.   

    呵呵;好像跟我们将qrreport升过级有关;
    用原来的delphi自带的控件就可以;郁闷;大侠们还有什么办法没?不是非要将报表控件还原才可以吧;
      

  7.   

    在Tquickrep的onpreview事件里添加代码
    frm_preview.qrpreview1.qrprinter := quickrep1.qrprinter;
    frm_preview.show; 
    在按钮中写以下一句,调用自定义预览窗口
    quickrep1.Previewmodal   //关键依据分析:
      在调用Previewmodal时,系统调用TCustomQuickRep的PreviewIt(true)方法,他和调用Preview方法不同在于TQRPrinter.Preview和TQRPrinter.Previewmodal的不同,一个是显示公共界面,一个是显示自身。    with GlobalPreviewInterface.Create(nil) do
        try
          ShowModal(Self)
        finally
          Free;
        end;
      

  8.   


    TO PaPaCong(小勇) 有空另谢;
    ^_^;搞定;