fastreport sayfa birleştirme

[erdogan]

merhaba,

fastreport ile döküm alıyorum her kayıt için ayrı bir sayfa (genelde bir sayfada 3-5 satır oluyor yani a4 sayfanın sadece küçük bir kısmına yazdırıyorum) bir işlemde 5-10 sayfa çıktı almam gerekiyor 

soru şu, aldığım çıktıları tek bir pdf sayfasına çevirmek istiyorum nasıl yapabilirim acaba ?

teşekkürler

  if DM.HareketlerDB.RecordCount > 0 then
  begin
   DM.RaporYazdirDB.Close();
   DM.RaporYazdirDB.Params[0].AsString :=  DM.HareketlerDB.FieldByName('IslemNo').AsString;
   DM.RaporYazdirDB.Params[1].AsString :=  Kodu;
   DM.RaporYazdirDB.Open();

   sqlRaporSayisiArttir.Params[0].AsInteger := DM.HareketlerDB.FieldByName('Kimlik').AsInteger;
   sqlRaporSayisiArttir.Execute();

   DM.frxRapor.LoadFromFile(extractfilepath(paramstr(0)) + 'Formlar\Rapor.fr3');
   DM.frxRapor.PrintOptions.Printer := DM.R.ReadString('Rapor Yazıcı');
   DM.frxRapor.PrepareReport:;
   DM.frxRapor.ShowReport;
 end;

[hi_selamlar]

(05-09-2023, Saat: 19:36)erdogan Adlı Kullanıcıdan Alıntı: merhaba,

fastreport ile döküm alıyorum her kayıt için ayrı bir sayfa (genelde bir sayfada 3-5 satır oluyor yani a4 sayfanın sadece küçük bir kısmına yazdırıyorum) bir işlemde 5-10 sayfa çıktı almam gerekiyor 

soru şu, aldığım çıktıları tek bir pdf sayfasına çevirmek istiyorum nasıl yapabilirim acaba ?

teşekkürler

  if DM.HareketlerDB.RecordCount > 0 then
  begin
   DM.RaporYazdirDB.Close();
   DM.RaporYazdirDB.Params[0].AsString :=  DM.HareketlerDB.FieldByName('IslemNo').AsString;
   DM.RaporYazdirDB.Params[1].AsString :=  Kodu;
   DM.RaporYazdirDB.Open();

   sqlRaporSayisiArttir.Params[0].AsInteger := DM.HareketlerDB.FieldByName('Kimlik').AsInteger;
   sqlRaporSayisiArttir.Execute();

   DM.frxRapor.LoadFromFile(extractfilepath(paramstr(0)) + 'Formlar\Rapor.fr3');
   DM.frxRapor.PrintOptions.Printer := DM.R.ReadString('Rapor Yazıcı');
   DM.frxRapor.PrepareReport:;
   DM.frxRapor.ShowReport;
 end;

Merhabalar,

Sorunuzu tam olarak anlayamadığımı belirterek, en azından anladığım kadarı ile "SubReport" ile işleminizi çözümleyebilirsiniz.
Sonra FastReport PDF Export yapıp oluşturabilirsiniz. 

Kolay gelsin.

[erdogan]

merhaba, düzeltiyorum 10 sayfa çıktı alıyorum bunları tek sayfada toplamak istiyorum

[hi_selamlar]

(05-09-2023, Saat: 23:32)erdogan Adlı Kullanıcıdan Alıntı: merhaba, düzeltiyorum 10 sayfa çıktı alıyorum bunları tek sayfada toplamak istiyorum

https://www.fast-report.com/en/blog/show...df-delphi/
https://stackoverflow.com/questions/4850...s-into-one

[erdogan]

Merhaba,

evet bunu yapmak istiyorum ama bir türlü toparlayamadım.

frxReport1.PrepareReport;
frxReport2.PrepareReport;
frxReport1.PreviewPages.AddFrom(frxReport2);
frxReport1.ShowPreparedReport;

örnek kod;

var
 I : integer;
begin

 if DM.HareketlerDB.RecordCount = 0 then
  exit;

 for I := 1 to DM.HareketlerDB.RecordCount do
 begin
   DM.RaporYazdirDB.Close();
   DM.RaporYazdirDB.Params[0].AsString :=  DM.HareketlerDB.FieldByName('IslemNo').AsString;
   DM.RaporYazdirDB.Params[1].AsString := Vezne;
   DM.RaporYazdirDB.Open();


   DM.frxRapor.LoadFromFile(extractfilepath(paramstr(0)) + 'Formlar\Rapor.fr3');
 //  DM.frxRapor.PrepareReport;



   if I = 1 then
   begin
     DM.frxReportToplu.PrepareReport(False);
     DM.frxRapor.PrepareReport(False);
   end
   else
   begin
     DM.frxRapor.PrepareReport(True);
     DM.frxReportToplu.PrepareReport(True);
   end;

   DM.frxRapor.PreviewPages.AddFrom(DM.frxReportToplu);
   DM.HareketlerDB.Next;

 end;
   DM.frxRapor.PrintOptions.Printer := DM.R.ReadString('Rapor Yazıcı');

// DM.frxRapor.ShowReport();
  // DM.frxReportToplu.PrepareReport;
   DM.frxRapor.ShowPreparedReport();