+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : فيما يتعلق بحفط ورقة الطباعة بصيغة pdf في مجلد داخل مجلد البرنامج (/showthread.php?tid=10020)
فيما يتعلق بحفط ورقة الطباعة بصيغة pdf في مجلد داخل مجلد البرنامج - medreg - 23-01-2019
السلام عليكم ورحمة الله تعالى وبركاته
ما هي الطريقة لحفظ ورقة الطباعة بصيغة pdf في مجلد داخل مجلد البرنامج
علما انني اعمل على محررتقرير الفاستروبورت ونسخة الدلفي xe8
وكل ما احتاج اليه هو ان احفظ ورقة الطباعة في مجلد داخل مجلد البرنامج باسم fact مع اضافة رقم الفاتورة والسنة
مثلا Archive\fact022018.pdf
جزاكم الله الف خير
RE: فيما يتعلق بحفط ورقة الطباعة بصيغة pdf في مجلد داخل مجلد البرنامج - Mustapha29 - 23-01-2019
ما هو مكون الطباعة المستخدم ؟
RE: فيما يتعلق بحفط ورقة الطباعة بصيغة pdf في مجلد داخل مجلد البرنامج - medreg - 23-01-2019
(23-01-2019, 06:51 PM)Mustapha29 كتب : ما هو مكون الطباعة المستخدم ؟
FastReport
RE: فيما يتعلق بحفط ورقة الطباعة بصيغة pdf في مجلد داخل مجلد البرنامج - Mustapha29 - 24-01-2019
على الفورم ضع المكونات التالية :
frxReport1
frxPDFExport1
Button1
اضغط على الزر ة اكتب الكود التالي :
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
frxReport1.ShowReport();
end;
RE: فيما يتعلق بحفط ورقة الطباعة بصيغة pdf في مجلد داخل مجلد البرنامج - Mustapha29 - 24-01-2019
عذرا على التعليق السابق كنت متسرعا
للطباعة مباشرة دون رؤية نافذة الحفظ
كود :
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;RE: فيما يتعلق بحفط ورقة الطباعة بصيغة pdf في مجلد داخل مجلد البرنامج - medreg - 25-01-2019
بارك الله فيكم اخي
لكن اردت ان تحفظ في مجلد داخل المشروع
على ان يكون مثلا المشروع اسمه 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);
جزاكم الله عنا كل خير
RE: فيما يتعلق بحفط ورقة الطباعة بصيغة pdf في مجلد داخل مجلد البرنامج - Mustapha29 - 25-01-2019
أنا عندي يحفظ في المجلد الي أريد حسب الكود المكتوب
أما أنت فحاول أن تغير إلى هذا الكود
كود :
oExportFilter.FileName := ExtractFilePath(ParamStr(0)) + 'Project1\Archive\Fact01.pdf';ملاحظة :
1- أن تكون قد جهزت النجلدين Project1\Archive\ في نفس المجلد الذي تخفظ فيه المجلد التنفيذي
2- يمكنك تغيير المسارات في الكود
RE: فيما يتعلق بحفط ورقة الطباعة بصيغة pdf في مجلد داخل مجلد البرنامج - medreg - 26-01-2019
بارك الله فيكم وفي اهلكم