Fastreport Export

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
cvheneburi
Üye
Mesajlar: 95
Kayıt: 07 Eki 2010 03:55

Fastreport Export

Mesaj gönderen cvheneburi »

Arkadaşlar Merhaba. Raporlama bileşeni olarak Fast Report kullanıyorum. query ile yaptığım sorgulamaları fast reporr üzerinden xls olarak export ettiğim zaman ole nesnesi olarak export ediyor ve rapordaki parasal alanlar üzerinde değişiklik yapamıyorum. fast report kullanmadan excel ortamına aktardığım zaman da query deki alanların tamamını aldığı için ve dizayn olmadığı için müşterinin talebine uygun olmuyor benim sorum fastreport da gösterdiğim tasarımın aynı şekilde parasal alanlarda değişiklik yapabileceğim şekilde nasıl export yapabilirim...
tayipk
Üye
Mesajlar: 284
Kayıt: 27 Kas 2013 11:32

Re: Fastreport Export

Mesaj gönderen tayipk »

fastreport ta bunun bir yöntemi yok malesef yapabileceğin en iyi şey eğer cxgrid kullanıyorsan Exportgrid özelliği ile excel e çıkartacaksın Fastreportta Ole olarak verir
Soru Sorarken yazmaya Üşenmeyen Parmaklar Sorunun Çözüldükten Sonra Teşekkür etmeye de Üşenmesin.
Kullanıcı avatarı
cinarbil
Üye
Mesajlar: 109
Kayıt: 18 Mar 2014 09:26

Re: Fastreport Export

Mesaj gönderen cinarbil »

Ben aşağıdaki şekilde kullanıyorum ekranda gördüğüm formatın aynısını excel veya pdf olarak alıyorum belki faydası olur.
fr3 rapor dosyasını dizayn ediyorum.tasarım dosyasındaki en boy alanlarının displayformat bolumunden decimal 2 kind fknumeric tousend sperator , olarak ayarlıyorum. raporu önce gridde gösteriyorum sonra

Kod: Tümünü seç

// griddeki bilgileri  aşağıdaki şekilde rapor dosyasındaki ilgili alanlara  gönderiyorum.

(akis_rapor.FindObject('akis_en')          as Tfrxmemoview).Memo.Text := akis_grid.Cells[5,akis_dataset.RecNo];
(akis_rapor.FindObject('akis_boy')         as Tfrxmemoview).Memo.Text := akis_grid.Cells[6,akis_dataset.RecNo];

// rapor tasarım dosyası yükle

 akis_rapor.LoadFromFile(cal_yol+'data\Rapor\akisrap.fr3',true); 
//radio gruptan  hangisi secili ise oraya raporu gönderiyorum.

 if cikar.ItemIndex=0 then akis_rapor.ShowReport (true) ;  // true hafızadaki son raporu siler
 if cikar.ItemIndex=1 then akis_rapor.Print;
 if cikar.ItemIndex=2 then akis_rapor.Export(pdfaktar) ;
 if cikar.ItemIndex=3 then akis_rapor.Export(xlsaktar) ;
 if cikar.ItemIndex=4 then akis_rapor.Export(mailaktar) ;
excel de aktarılan en ve boy alanları ile hesaplamalar yapabiliyorum.
"…De ki: "Hiç bilenlerle bilmeyenler bir olur mu? Şüphesiz, temiz akıl sahipleri öğüt alıp-düşünürler" (Zümer Suresi, 9)
Cevapla