عاجل في ال fastreport

الأخ Midas السلام عليكم ورحمة الله وبركاته

طريقة تصدير التقرير الى ملف وورد أو اكسل :

تضيف الكمبيونت التالي frRTFExport1 وهو خاص بالتصدير للوورد أو frCSVExport1 وهو خاص بالتصدير للاكسل ثم تكتب الكود التالي للتصدير الى الوورد

procedure TForm1.Button2Click(Sender: TObject);
begin
frReport1.PrepareReport;
frReport1.ExportTo(frRTFExport1,'C:test.doc');
end;

وتكتب الكود التالي للتصدير الى الاكسل

procedure TForm1.Button2Click(Sender: TObject);
begin
frReport1.PrepareReport;
frReport1.ExportTo(frCSVExport1,'C:test.xls');
end;

شكرا لك أخي Admin و بارك الله فيك على سرعة ردك

لكن لعلك نسيت السؤال الأول

:(:(:( كيف اطبع قيمة Edit1.text من الفورم الى التقرير :( :(

ارجوا ان تجد لي حل لهذه المشكلة لأني احتاجها لبعض المتغيراتمن قبل المستخدم كأن يكتب اسمه و يطبعه مع التقرير

شكرا لك مرة ثانية (f)(f)(f)(f)(f)(f)

أخي الحبيب

أنا جربت هذا الأمر فعلا انشأ ملف ولكن فارغ لا يوجد به بيانات

كيف ارسل بيانات التقرير و افتحه مباشرة اي يفتح بدون حفظ للعرض و الطباعة فقط و الهدف منه اذا اراد أن يعدل في التقرير حسب رغبته

الا اذا كان فيه امكانية للتعديل من نفس التقرير

السلام عليكم ورحمة الله وبركاته

بالنسبة للسؤال الأول لم أنساه ولكن لا توجد له اجابة لدى واتمنى ان تجد من الاخوان ما يفيدك بهذا المجال ، ولكن اعطيك حل مؤقت وهو استخدام dbedit بدلا من edit ومن ثم ترسل محتواها الى قاعدة البيانات فتقوم بدورها بارسالها الى التقرير .

أما بالنسبة لكون الملف فارغا :

هل استخدمت الامر frReport1.PrepareReport;

ان استخدمته تأكد من أن التقرير يحتوي على بيانات عند عرضه .

اتمنى لك التوفيق .

أخي بارك الله فيك و شكرا لك على سرعة ردك

نعم انا استخدمت ما قلته بالضبط

frReport1.PrepareReport;

frReport1.ExportTo(frRTFExport1,'C:test.doc');

و قام بحفظ الملف و عند فتحه اجده فارغ

هل استطيع فتحه مباشرة بدون حفظ لأن هدفه هو التعديل و ليس الاحتفاظ به

شكرا لك

المشكلة لديك في التقرير frReport1

لكي يعمل التقرير لا بد من تفعيل الخيار StoreInDFM

والهدف من التصدير هو حفظ التقرير والتعديل عليه ، أما إذا أردته للعرض والتعديل فقط فتحتاج أن يكون التقرير مهيأ بحيث يستطيع المستخدم التعديل عليه .

شكرا لك على سرعة ردك

لعلك لم تفهم قصدي

أنا اريد فتحة على الوورد مباشرة بدون حفظ

أما اذا كان هناك طريقة يستطبع المستخدم التعديل فهذا طيب جدا

ياليت ترفق ملف شغال في هذا لو أني أثقلت عليك

طبعا تم تفعيل خيار StoreInDFM و تظهر البيانات في التقرير و لكن لا تظهر في ملف الوورد

شكرا لك و بارك فيك و في علمك

طبعاعة قيمة Edit1.text من الفورم الى التقرير

نفرض ان عندنا عنصر على التقرير اسمه memo1

في حدث GetValue للتقرير نضع الكود التالي

procedure TForm1.frReport1GetValue(const ParName: String;
  var ParValue: Variant);
begin
  IF ParName='Memo1' then
    ParValue:=Edit1.Text
end;

شكرا لك وزادك الله علما و وفقك الله

سوف أجرب

اذا كان لديك خبرة ممكن تنورنا الله ينور لك طريقك في الدنيا و الآخرة

وتعطينا درس محترف فيه

أخي النقال أنت تنقل العلوم الطيبة

جربت و لم يظهر لي أي قيمة في التقرير ما هو الخطأ المرتكب في رأيك

لو أردت اضع أكثر من حق في التقري هل يمكن ذلك

ياليت ترفق المثال

سؤال آخر هل أستطيع و ضع متغير داخ الكتابة في التقرير

مثال

لدي memo1 فيها كتابة مثلا

==================

بسم الله الرحمن الرحيم

الأخ name1 السلام عليكم و رحمة الله و بركاته

=======================

هذا الكلام داخل ال memo1 و متغير name1 يأخذ الاسم من حقل اسمه name1 في قاعدة البيانات اذا كان فيه طريقة تحل اشكال كبير

شكرا لك على سرعة ردك و سعة صدرك

التصدير لم ينجح ممكن مثال و ارغب عدم حفظه فقط فتحة في الوورد

لا زلت أنتظر

السلام عليكم ورحمة الله وبركاته

ارفقت لك ملف ( ولكنه من مبتدئ ) أتمنى أن يفيدك . لتشغيل ملف التصدير مباشرة تحتاج الى توابع windows مثل WinExec ، اتمنى ان يدلك احد الاخوان على التابع الذي يقوم بشغيل ملفات الوورد أو الاكسل مباشرة ، أما عدم الحقظ عليه : فعند تشغيل الملف بالوورد سيتحكم به الوورد وبالتالي لن تسطيع الغاء الحفظ ، أما طريقة طباعة edit1 على التقرير سأجرب ما كتبه الاخ النقال ثم ارفقه لك بملف ان نجح معي .

أتمنى لك التوفيق

test.zip

بارك الله فيك و جزاك الله خيرا

تم التصدير بنجاح و لكن هناك مشكلتين

1 - التصدسر لا يكون بنفس التنسيق الموجود بل يختلف التنسيق و يحتاج الاى اعدة تنسيق في الوورد

2 - انا اريده يفتح الوثيقة في الوورد مباشرة أي المستخدم لا يعرف مكان التصدير حتى يفتحها

ياليت انك تشوف لنا حلولها

الله يوفقك في الدنيا و الآخرة

السلام عليكم

لتشغيل أي ملف استخدم هذا الكود بعد أن تضيف shellapi إلى uses

ShellExecute(Handle, 'open', PChar('c:testapp.exe'), nil, nil, SW_SHOW);

الملف المرفق يحتوي على مثال يبين تصدير الملف وتشغيله مباشرة .

أما بالنسبة للنتسيق : يظهر الملف في الوورد كما هو منسق في التقرير تماما ، أي تنسق التقرير كما تريده أن يظهر على الوورد وبالتالي لا تحتاج تنسيقه في الوورد .

وتقبل تحياتي

test.zip

شكرا جزيلا لك سأجرب و بارك الله فيك

أخي الحبيب أنا أعرف اني أزعجتك كثيرا لكن المشكلة في التنسيق الذي أقصدها هي

اجعل التقرير يبدأ من اليمين يعني في أقصى اليمين ولاحظ التنسيق في الوورد

حفظك الله و بارك فيك