50 lines
831 B
ObjectPascal
50 lines
831 B
ObjectPascal
unit noguiFRDM;
|
|
|
|
{$mode ObjFPC}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, frxClass, frxExportPDF;
|
|
|
|
type
|
|
|
|
{ TDataModule1 }
|
|
|
|
TDataModule1 = class(TDataModule)
|
|
frxPDFExport1: TfrxPDFExport;
|
|
frxReport1: TfrxReport;
|
|
procedure DataModuleCreate(Sender: TObject);
|
|
private
|
|
|
|
public
|
|
procedure MakeReport(repFile: string);
|
|
end;
|
|
|
|
var
|
|
DataModule1: TDataModule1;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TDataModule1 }
|
|
|
|
procedure TDataModule1.DataModuleCreate(Sender: TObject);
|
|
begin
|
|
frxReport1.EngineOptions.DestroyForms := False;
|
|
frxPDFExport1.ShowDialog:=false;
|
|
end;
|
|
|
|
procedure TDataModule1.MakeReport(repFile: string);
|
|
begin
|
|
frxReport1.PrepareReport(False);
|
|
frxPDFExport1.ShowDialog := false;
|
|
frxPDFExport1.FileName:=repFile;
|
|
frxPDFExport1.ShowProgress := false;
|
|
frxReport1.Export(frxPDFExport1);
|
|
end;
|
|
|
|
end.
|
|
|