FastReport 套打全攻略

http://blog.csdn.net/jinzhili/article/details/500263

FastReport 套打全攻略  2005-7-13 22:10  原創
//以設計套打行爲6行爲例進行說明
1、定義變量
 TaoDa   0 是套打 1 不套打
 cPage   系統變量  頁#
 caPage  系統變量  總頁數
 
2、TfrPage.OnBeforePrint事件中寫
{
 if TaoDa = '0' then
  begin
   title.visible:=false;   //不用打印的設置Visible爲False;
   danweiv.frametyp := 0;  //只打印數據的不須要打印邊框的設置 frametyp 爲 0;
   ...   
  end;
 i := 0 ;   //定義一個變量並進行初始化。
}
2、主項數據.OnBeforePrint事件中寫
{
 if TaoDa = '0' then
  begin
   i := i + 1;
   bm.memo := i;
   if (i > 5 ) then
    if ((i-1) mod 6 ) = 0 then newpage; 
  end;  
}

3、主項腳.OnBeforePrint事件中寫
{
 j := i mod 6;
 if j <> 0 then 
  begin
   for k := j to 5 do 
    begin
     ShowBand(Child1);   //Child1是子的名稱 顯示空白行    
    end;
  end;
}
4、欄目腳.OnBeforePrint事件中寫
{
 if cpage <> capage then 
  begin
   shi.memo := '';  //十
   bai.memo := '';  //百
   qian.memo := ''; //千
   wan.memeo := ''; //萬    
  end
  else begin
   shi.memo := v1;
   bai.memo := v2;
   qian.memo := v3;
   wan.memo := v4;
  end;
}

這段代碼是用來控制在有多頁狀況下，在最後一頁上顯示總金額。
其中：v1,v2,v3,v4 是自定義變量。

報表結構組成：
欄目頭           //畫報表的標頭     
主項數據         //顯示的數據，會與數據源進行綁定 
主項腳      //什麼也不用放，只用來控制  visible := false;  
子               //畫出空白行顯示的組件  
欄目腳           //顯示總的金額、數量   
頁腳             //顯示頁數

調用方法：

frReportA.LoadFromFile(s);   s 是文件
frReportA.Dictionary.Variables['taoda']:='1';
進行查詢

打印：
frReportA.PrepareReport;
frreportA.PrintPreparedReport('',1,true,frall);

預覽：
frReportA.ShowReport;