5,392
社区成员
发帖
与我相关
我的任务
分享
p:=TfrxReportPage(frxrptFitting.Pages[1]);
p.PaperSize:=aPaperID;
if PaperSelFitting = psCustum then //自定义大小
begin
p.PaperWidth:=PaperSizeFitting.Width;
p.PaperHeight:=PaperSizeFitting.High;
end;
//边距
p.TopMargin:=PageMarginFitting.Top;
p.LeftMargin:=PageMarginFitting.Left;
p.RightMargin:=PageMarginFitting.Right;
p.BottomMargin:=PageMarginFitting.Bottom;
//方向
p.Orientation:=PageDirectFitting;
类似这样设置,注意页序号是从1开始,如果是标准页大小只要设置PaperSize=DMPAPER_A4,如果是自定义大小,PaperSize:=DMPAPER_USER(表示自定义纸张),然后设置PaperWidth和PaperHeight