+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف تحويل محتوى quickreport الى pdf (/showthread.php?tid=7810)
كيف تحويل محتوى quickreport الى pdf - medreg - 09-05-2016
السلام عليكم ورحمة الله تعالى وبركاته
كيف يمكنني تحويل محتوى الكويكروبورت بما فيه من جداول وفقرات
الى ملف pdf
وبارك الله فيكم
RE: كيف تحويل محتوى quickreport الى pdf - wadoud - 09-05-2016
(09-05-2016, 11:35 AM)medreg كتب : السلام عليكم ورحمة الله تعالى وبركاته
كيف يمكنني تحويل محتوى الكويكروبورت بما فيه من جداول وفقرات
الى ملف pdf
وبارك الله فيكم
وعليكم السلام ورحمة الله , أخي الكريم فقط عليك إضافة إلى الفورم المكون frxPDFExport
مثال:
كود :
frxReport1.PrepareReport;
frxPDFExport1.FileName := 'c:\Users\Public\Desktop\test.pdf';
frxReport1.Export(frxPDFExport1);
end;كود :
بالتوفيق إنشاء الله.معذرة أخي لقد تسرعت في الرد هذا خاص بالفاست ربورت.
RE: كيف تحويل محتوى quickreport الى pdf - medreg - 09-05-2016
بارك الله فيك أخي وليد
لكن انا استعمل المكون quickreport
وليس المكون fastReport
RE: كيف تحويل محتوى quickreport الى pdf - wadoud - 09-05-2016
(09-05-2016, 10:09 PM)medreg كتب : بارك الله فيك أخي وليد
لكن انا استعمل المكون
وليس المكون fastReport
جرب هذا انا لا أستعمل quickreport
كود :
procedure ReportExport(aReport: TQuickRep; const aFileName: TFileName);
var Pdf: TPdfDocument;
aMeta: TMetaFile;
i: integer;
begin
Pdf := TPdfDocument.Create;
try
aReport.Prepare;
for i := 1 to aReport.QRPrinter.PageCount do begin
aMeta := aReport.QRPrinter.GetPage(i);
try
Pdf.DefaultPageWidth := MulDiv(aMeta.Width,72,Pdf.ScreenLogPixels);
Pdf.DefaultPageHeight := MulDiv(aMeta.Height,72,Pdf.ScreenLogPixels);
Pdf.AddPage;
// draw the page content
Pdf.Canvas.RenderMetaFile(aMeta,1,0,0);
finally
aMeta.Free;
end;
end;
Pdf.SaveToFile(aFileName);
finally
Pdf.free;
end;
end;RE: كيف تحويل محتوى quickreport الى pdf - medreg - 10-05-2016
[quote pid='38665' dateline='1462829958']
كود :
بارك الله فيك اخي wadoud
المشكلة انه لا يتعرف على المكون TPdfDocument
اين اجد هذا المكون
لقد حاولت تثبيت PowerPDF
لم اتمكن من تثبيته ربما اجده فيه
كيف يمكنني العثور عليه
بارك الله فيكم
[/quote]
بارك الله فيك اخي wadoud
المشكلة انه لا يتعرف على المكون TPdfDocument
اين اجد هذا المكون
لقد حاولت تثبيت PowerPDF
لم اتمكن من تثبيته ربما اجده فيه
كيف يمكنني العثور عليه
بارك الله فيكم