Hi;
I use the version 3.62 of the QuickReport and I would like to generate
direclty of the pdf files from of the Qrp files stored in a database in
using the "TQRPDFDocumentFilter" module.
But do not works (it does not pass anything the whole)
My code is :
procedure TForm1.Button1Click(Sender: TObject);
var
FichierPDF : TQRPDFDocumentFilter;
qrp : TQRPrinter;
ApplicationPath : string;
begin
ApplicationPath := ExtractFilePath(Application.ExeName);
FichierPDF := TQRPDFDocumentFilter.Create(ApplicationPath
+'Report.pdf');
qrp := TQRPrinter.Create(nil);
qrp.Load('D:\Temp\etat.qrp');
qrp.ExportToFilter(FichierPDF);
FichierPDF .free;
end;
Regards;
I use the version 3.62 of the QuickReport and I would like to generate
direclty of the pdf files from of the Qrp files stored in a database in
using the "TQRPDFDocumentFilter" module.
But do not works (it does not pass anything the whole)
My code is :
procedure TForm1.Button1Click(Sender: TObject);
var
FichierPDF : TQRPDFDocumentFilter;
qrp : TQRPrinter;
ApplicationPath : string;
begin
ApplicationPath := ExtractFilePath(Application.ExeName);
FichierPDF := TQRPDFDocumentFilter.Create(ApplicationPath
+'Report.pdf');
qrp := TQRPrinter.Create(nil);
qrp.Load('D:\Temp\etat.qrp');
qrp.ExportToFilter(FichierPDF);
FichierPDF .free;
end;
Regards;