文档介绍:FastReport4 动态报表制作
 
注:
1、窗体报表控件 FR:TfrxReport;frDB:TfrxDBDataset
2、调用自定义函数:GetPrnFieldWidth(ADOQ_List); //取得查询结果中各字段宽度
3、全局变量:Prn_FieldWidth: Array  of  integer; //打印时各字段宽度数组
通过GetPrnFieldWidth修改其值
4、uses PRINTERS; 
代码:
(Sender: TObject);
Var
//DataPage: TfrxDataPage;
Page: TfrxReportPage;
PageTitle:TfrxReportTitle;
PageHeader:TfrxPageHeader;
//Band: TfrxBand;
MastData: TfrxMasterData;
PageSummary:TfrxReportSummary;
Memo: TfrxMemoView;
i:integer;
MLeft:Real;//表头字段在mastdata中的左边距
PaperWidth:Real; //纯报表(不含边距)宽度(毫米)
begin
//清除报表
;
//1====添加页
Page:=(FR);
;//创建唯一名称
//;//设置默认字段大小, 纸张
//自定义纸张大小
//:=210; //纸张宽
//:=297;//纸张高
:=9;//a4纸
:=poPortrait; //纸张纵向
//:=poLandscape; //纸张横向
:=25;//上边距
:=15;
:=15;
:=15;
//2====添加一个报表标题栏
PageTitle:=(Page);
;
:=0;
:=140;  //留出空白行
//得到报表不含边距的宽度(毫米)
//SetBounds中用的是像素值
PaperWidth:=(--)*;
//添加标题memo
Memo:= (PageTitle);
;
:=haCenter;//左右居中
:=vaCenter;//上下居中