fastreport 打印动态设置

procedure  inipage(fr:frxReport;frfile:string;printini:string);
var
Page:TfrxReportPage;
IniFile:TINIFile;

CDir:String;
begin

//fr.LoadFromFile(ExtractFilePath(Application.ExeName)+'print\hwdj.fr3');
 fr.LoadFromFile(ExtractFilePath(Application.ExeName)+frfile);
  Cdir:=ExtractFilePath(Application.ExeName);

//  INIFile:=TINIFile.Create(cdir+'print.ini');
 INIFile:=TINIFile.Create(cdir+printini);

 page:=Tfrxreportpage.Create(nil);
page:=Tfrxreportpage(fr.Pages[1]);


  page.PaperSize:=256; //256表示自定义

Page.PaperWidth :=INIFile.ReadFloat('setprint','PaperWidth',0);
Page.PaperHeight :=INIFile.ReadFloat('setprint','pageheigth',0);


   INIFile.Free;


end;