fastreport3以上得版本,如何动态设置打印纸张大小? ( 积分: 200 )

  • 主题发起人 主题发起人 jlcsx
  • 开始时间 开始时间
J

jlcsx

Unregistered / Unconfirmed
GUEST, unregistred user!
fastreport3以上得版本,如何动态设置打印纸张大小?
 
fastreport3以上得版本,如何动态设置打印纸张大小?
 
frxReport1.Page.Height
frxReport1.Page.Width
 
设置过了,没有效果
frxReport1.Page.Height
frxReport1.Page.Width
 
procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);
begin
TfrxReportPage(frxReport1.FindObject('Page1')).PaperHeight := 500 ;
TfrxReportPage(frxReport1.FindObject('Page1')).PaperWidth := 600 ;
end;
 
这样应该可以了吧!
frxReport1.Pages[0].Height
frxReport1.Pages[0].Width
 
//必须先设置宽度与高度,否则有些编号的纸型出不来
Page.PaperWidth:=;
Page.PaperHeight:=;

//高度与宽度
if 是自定义纸张 then
Page.PaperSize:=DMPAPER_USER
else
Page.PaperSize:=纸张代码;
Page.Orientation:=方向;
Page.TopMargin:=;
Page.LeftMargin:=;
Page.RightMargin:=;
Page.BottomMargin:=;
//四个边距
 
var
page:tfrxreportpage;
m,n: integer;
begin
page:=tfrxreportpage(frxreport1.Pages[0]);
page.PaperSize:=dmpaper_user;
Page.PaperWidth:=n;
page.PaperHeight:=m;
end;
 
多人接受答案了。
 

Similar threads

后退
顶部