Question

如何动态设置FastReport纸张大小

Answer 1

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;
我用的是finereport，比较好用，可以试试