在delphi的快速报告中查找当前页面打印的页面

时间:2013-04-07 14:41:11

标签: delphi delphi-7 fastreport

我的fastReport中有一个名为memo1的备忘录名为frxReport1。 Memo1应根据某些条件在第一页和最后一页上查看(例如Cond1) 我在delphi中的beforeprint事件上编写代码:

    procedure MyReportBeforePrint(Sender: TfrxReportComponent);
    var Component: TfrxComponent;
    begin
      Component := (Sender as TfrxReportComponent).FindObject('Memo1');
      if  Component is TfrxMemoView then
        begin
          With Component as TfrxMemoView do
            begin
              Visible := 
                ( Cond1 and ( (Sender as frxReportComponent).Report.Variables['Page#']=1) )
                or     
                ( Cond1 and ( (Sender as frxReportComponent).Report.Variables['Page#']=(Sender as TfrxReportComponent).Report.PagesCount) )
            end;
        end;
    end;

但是此代码不起作用,我不知道如何在此事件中查找页面#和页数。 有没有人这样做过?或者知道这是否可能与FastReport一起使用。

0 个答案:

没有答案