如何动态设置FastReport纸张大小？

Question

同上

Answer 1

var     frReport: TfrReport;frReport.pages[0].pgsize:=DMPAPER_A4; //DMPAPER_A4 纸张大小

Answer 2

 frReport1.Pages.Clear;
 frReport1.Pages.Add;
 page:=frReport1.Pages[0]; b:=TfrBandView(frCreateObject(gtBand,''));
 b.SetBounds(0,20,0,20);
 b.BandType :=btMasterData;
 b.DataSet  :='frDBDataSet1';
 Page.Objects.Add(b); v :=frCreateObject(gtMemo,'');
 v.SetBounds(20,20,200,16);
 v.Memo.Add('[Ahz."hz"]');
 page.pgWidth:=30;
// page.pgSize:=DMPAPER_A3; //DMPAPER_A4 纸张大小
 page.Objects.Add(v);
 page.pgWidth:=30;
 page.pgSize:=DMPAPER_A3; //DMPAPER_A4 纸张大小 frReport1.ShowReport;