FastReport报表另存为PNG(原创)

不知道什么原因,编译的 fastreport 面板中没有 frxExportImage 控件,但是可以通过代码声明并使用该控件:

uses frxExportImage;

procedure TForm1.Button1Click(Sender: TObject);
var
  frxPNGExport1: TfrxPNGExport;
begin
  frxPNGExport1 := TfrxPNGExport.Create(nil);
  frxReport1.LoadFromFile('d:\l.fr3');
  frxReport1.PrepareReport();
  frxPNGExport1.SeparateFiles := false;
  frxPNGExport1.Monochrome := false;
  frxPNGExport1.CropImages := false;
  frxPNGExport1.Resolution := 300;
  frxPNGExport1.OpenAfterExport := false;
  frxPNGExport1.ShowProgress := false;
  frxPNGExport1.ShowDialog := false;
  frxPNGExport1.FileName := 'd:\export.png';
  frxReport1.Export(frxPNGExport1);
end;
posted @ 2023-04-20 11:10  汉学  阅读(35)  评论(0)    收藏  举报