Export کردن با FastReport

Printable View

جمعه 22 اسفند 1382, 20:05 عصر
nasr

Export کردن با FastReport

سلام

چگونه میشه اطلاعات یک Fastreport را به Word انتقال داد

یا حداقل بصورت یک فایل Text در آورد

یه کامپوننت داره برای اینکار ولی نمی دونم چطوری با اون کار کنم

ممنون
شنبه 23 اسفند 1382, 13:24 عصر

سلام

یه کامپوننت frRTFExport روی فرم قرار می دهی. جز frReport متدی بنام ExportTo داره که دوتا متغیر میگیره. یکی Filter و دومی FileName هست. اولی در واقع کامپوننت نوعی که می خواهی به آن فرمت اکسپرت کنی هست مثلا Word , Excel, Html و ... که در پلیت FastReport وجود دارد و دومی هم که نام فایل می باشد.
سه شنبه 09 تیر 1383, 14:17 عصر
Look in future

سلام دوستان
من برای اتتقال اطلاغات به word کد زیر زا وارد کردم ولی با پیغام خظا روبرو می شوم:

module.frReport1.loadfromfile(ExtractFilePath(Appl ication.ExeName)+'Type_morakhasi.frf');

module.frReport1.ExportTo(word,('Type_morakhasi.fr f'));

module.frReport1.ShowReport;
سه شنبه 09 تیر 1383, 15:00 عصر
مهدی کرامتی

1- چه ایرادی میگیره؟

2- برای نمایش صحیح کد در حالت ویرایش (در این فوروم) آنرا انتخاب کرده و بر روی دکمه Code کلیک کنید.

سلام
دوست عزیز من حتی کامپوننت frRTFExport را روی ماژول خود گذاشتم ولی این کامپوننت متدی بنامن ExportTo نداشت . ولی خود fastreport متد exportTo را دارد که وقتی من دستورا زیر را وارد می کنم پیغام خطاهای زیر را می دهد :
&#91;Error&#93; Report_personel_unit.pas&#40;249&#41;&#58; '&#40;' expected but ',' found

&#91;Error&#93; Report_personel_unit.pas&#40;249&#41;&#58; Incompatible types&#58; 'TfrExportFilter' and 'Word'
کد دستورات :
  module.frReport1.loadfromfile&#40;ExtractFilePath&  #40;Application.ExeName&#41;+'Type_morakhasi.frf'&  #41;;

     module.frReport1.ExportTo&#40;word,&#40;ExtractFil  ePath&#40;Application.ExeName&#41;+'Type_morakhasi  .frf'&#41;&#41;;

     module.frReport1.ShowReport;

چهارشنبه 10 تیر 1383, 08:43 صبح
Look in future

سلام
اقا چه کار باید کرد
چهارشنبه 17 تیر 1383, 14:11 عصر
Look in future

سلام
کسی پیدا نشد یه ما جواب بدهد
سه شنبه 12 دی 1385, 15:40 عصر
nasr
سلام

من با این دستور می خوام اطلاعات داخل FastReport را به صورت فایل Tiff برای فاکس کردن Export کنم
ولی نه خطا می ده و نه فایل را می سازه
```
frReport1.ExportTo(frTIFFExport1 , 'C:\Test.tif');
```
سه شنبه 12 دی 1385, 15:54 عصر
Mahmood_M

سلام
چرا از امکانات فرم نمایش FR استفاده نمی کنید ؟
وقتی یه کامپوننت frxTIFExport روی فرم بزارید ، یه گزینه به منوی Export در فرم نمایش اون اضافه می شه که می تونید با اون Export کنید ... ( این موضوع برای سایر Export ها هم صدق می کنه ) ...
البته شاید بخواید جداگونه Export کنید ، به هر حال قصدم راهنمایی بود ...

موفق باشید ...
سه شنبه 12 دی 1385, 15:59 عصر
nasr

سلام
من می خوام که چند صفحه به صورت اتوماتیک Export بشه و مجبورم که از این حالت استفاده کنم

نمی دونم چرا این فایل را در مسیر مشخص شده نمیسازه!!!!!

تازه مشکلی هم که دارم اینه که چون برای کار با KDTele می خوام که فاکسش کنم باید بتونم ابعاد و رزولوشن اون را هم تو برنامه بدم

واااااااااااااااااای
سه شنبه 12 دی 1385, 21:45 عصر
babak869

اصلا نیازی به کد نویسی نداره . زمانی که شما عنصر frxRTFExport1 رو روی فرم میزارید هنگام گزارشگیری و پیش نمایش این امکان به گزارش شما اضافه میشه و طبیعتا بهترین زمان برای خروجی گرفتن به فرمتهای دیگه زمان پیش نمایش هستش که خود شرکت fast Report اونو منظور کرده
چهارشنبه 13 دی 1385, 08:59 صبح
nasr

سلام
با تشکر مشکل Export حل شد

حالا چطور می تونم ابعاد و رزولوشن اون را قبل از Expot تعیین کنم

ممنون
چهارشنبه 13 دی 1385, 11:45 صبح
knajafi

سلام
من تمام فست ریپورت و حنی جدیدشو دارم. حتی ایمیل زدن هم داره. شما باید از خود اکسپورتر برای اکسپورت استفاده کنید.
چهارشنبه 13 دی 1385, 12:23 عصر
Touska
نقل قول:

نوشته شده توسط nasr

سلام
با تشکر مشکل Export حل شد

حالا چطور می تونم ابعاد و رزولوشن اون را قبل از Expot تعیین کنم

ممنون

شما یک Prepeare قبل از Export کردن می زدید سپس بعد از ساختن Export می شد. دیگه احتیاجی به ShowReport نیست. :لبخند:

و برای Fax کردن شما با KDImage راحت این کارو انجام دهید : :لبخند:

مشخصات فایل خود را به :

Width : 1728
H,V Resolution : 200 x 200
Bit Depth : 1

تغییر می دهید و برای ارسال اتوماتیک آن :
```
procedure TForm1.Button1Click(Sender: TObject);

begin

 KDPhone1.LineActive(8,True);

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

 KDPhone1.DialNumber('2237428',1);

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

 KDFax1.FaxSend('Test_1.tif',1,1);

end;
```
من اینها رو تو Button های جداگانه گذاشتم شما باید یک Sleep صحیح و خطا مقدار صبر را در بین هر کدام بسنجید. :چشمک:

موفق باشید :لبخندساده: