FastReport 自定义页长

可以在打印前计算出纸张的长度再设置不就可以了,我用过,可以实现的.  
          frm_print.frprint.Pages.Pages[0].pgSize:=256;  
          frm_print.frprint.Pages.Pages[0].pgWidth:=2100;  
          frm_print.frprint.Pages.Pages[0].pgHeight:=(5*dm_xsgl.q_xsdmx.RecordCount+33+33+40)*10;  
          frm_print.frprint.PrepareReport;  
          frm_print.frprint.ShowReport  
   
  以上是我实现的代码:5是每条记录的高度*记录数量,33页高,33:表尾高度,40:每页打印完后走纸的高度.这样就可以了.其中:5,33,33,40可根据自己的报表量出来就好了.

 

 

一定要*10哦。因为设计器里写15，在外面一定要写成150。