السلام عليكم ورحمة الله تعالى وبركاته
ما هي الطريقة لحفظ ورقة الطباعة بصيغة pdf في مجلد داخل مجلد البرنامج
علما انني اعمل على محررتقرير الفاستروبورت ونسخة الدلفي xe8
وكل ما احتاج اليه هو ان احفظ ورقة الطباعة في مجلد داخل مجلد البرنامج باسم fact مع اضافة رقم الفاتورة والسنة
مثلا Archive\fact022018.pdf
جزاكم الله الف خير
ما هو مكون الطباعة المستخدم ؟
(23-01-2019, 06:51 PM)Mustapha29 كتب : [ -> ]ما هو مكون الطباعة المستخدم ؟
FastReport
على الفورم ضع المكونات التالية :
frxReport1
frxPDFExport1
Button1
اضغط على الزر ة اكتب الكود التالي :
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
frxReport1.ShowReport();
end;
تظهر نافذة المعاينة و على اليمين في الأعلى تجد زر التصدير إلى PDF مفعلا
عذرا على التعليق السابق كنت متسرعا
للطباعة مباشرة دون رؤية نافذة الحفظ
كود :
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;
بارك الله فيكم اخي
لكن اردت ان تحفظ في مجلد داخل المشروع
على ان يكون مثلا المشروع اسمه project1
والمجلد المراد الحفظ به هو archive
لكن عندما جربت الكود وجدته يحفظ بالمجلد التلقائي مع الملف التنفيذ win32\debug
وهذا و الكود الذي وضعته
var
oExportfilter : TfrxCustomExportFilter;
begin
oExportfilter := TfrxCustomExportFilter(frxPDFExport1);
oExportFilter.ShowDialog := False;
oExportFilter.FileName := ExtractFileName('Project1\Archive\Fact01.pdf');
frxReport1.PrepareReport(True);
frxReport1.Export(oExportFilter);
جزاكم الله عنا كل خير
أنا عندي يحفظ في المجلد الي أريد حسب الكود المكتوب
أما أنت فحاول أن تغير إلى هذا الكود
كود :
oExportFilter.FileName := ExtractFilePath(ParamStr(0)) + 'Project1\Archive\Fact01.pdf';
ملاحظة :
1- أن تكون قد جهزت النجلدين Project1\Archive\ في نفس المجلد الذي تخفظ فيه المجلد التنفيذي
2- يمكنك تغيير المسارات في الكود