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;