24-01-2019, 08:56 PM
(آخر تعديل لهذه المشاركة: 25-01-2019, 08:19 AM بواسطة محمد عبد العزيز.)
عذرا على التعليق السابق كنت متسرعا
للطباعة مباشرة دون رؤية نافذة الحفظ
للطباعة مباشرة دون رؤية نافذة الحفظ
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
oExportfilter : TfrxCustomExportFilter;
begin
oExportfilter := TfrxCustomExportFilter(frxPDFExport1);
oExportFilter.ShowDialog := False;
oExportFilter.FileName := ExtractFileName('test.pdf');
frxReport1.PrepareReport(True);
frxReport1.Export(oExportFilter);
end;
صدقة العلم تعليمه