fastReport里面的自定义纸张设置

1、  
  var  
      i:   integer;  
      Page:   TfrxReportPage;  
  begin  
      for   i   :=   0   to   frxReport1.PagesCount   -   1   do  
      begin  
          Page   :=   TfrxReportPage(frxReport1.Pages[i]);  
          Page.PaperWidth   :=   1000;  
          Page.PaperHeight   :=   2000;  
          if   要求横向   then  
              Page.Orientation   :=   poLandscape  
          else  
              Page.Orientation   :=   poPortrait;  
        end;  
  ------------------------------------------------------------  
  2、TfrxMemoView(frxReport1.FindComponent('Memo1')).Width   :=   100;  
   
  ===================  
  以上是针对FastReport   3.x   的  

  如果你要   FastReport   2.x   的:

var  
      i:   integer;  
  begin  
      for   i   :=   0   to   frReport1.Pages.Count   -   1   do  
      begin  
          if   横向   then  
              frReport1.Pages[i].ChangePaper(256,Width,Height,-1,poLandscape)  
          else  
              frReport1.Pages[i].ChangePaper(256,Width,Height,-1,poPortrait);  
      end;  
  end;

2、TfrMemoView(frReport1.FindComponent('Memo1')).SetBounds(Left,Top,Width,Height);