Jump to content

Fast Report pdf görüntülemede alınan sorun


Perga Yazilim

Recommended Posts

 

Merhabalar arkadaşlar;

rapor aldıgımda pdf olarak gösterebiliyorum pc den bakabiliyorum normal ancak tablo ile girişte yapıldıgında ekteki gibi sorunla karşılaşmakta yardımcı olur mu ? 

procedure TFormServisRaporlar.PrepareAndShow(Report: TfrxReport; Exp: TfrxPDFExport;
RaporYolu: string);
var
  AUrl: string;
begin



  Report.PrintOptions.ShowDialog := False;
  Report.ShowProgress := False;
  Report.EngineOptions.SilentMode := True;
  Report.EngineOptions.EnableThreadSafe := True;
  Report.EngineOptions.DestroyForms := False;
  //Report.EngineOptions.UseGlobalDataSetList := False;

  Exp.Background := True;
  Exp.ShowProgress := False;
  Exp.ShowDialog := False;
  Exp.DefaultPath := '';
  Report.PreviewOptions.AllowEdit := False;
  Report.LoadFromFile(RaporYolu);
  Report.PrepareReport();

  Exp.FileName := UniServerModule.NewCacheFileUrl(false, 'pdf', '', '',  AUrl, True);
  Report.Export(Exp);
  FormRaporGoster.UnimPDFFrame1.PdfURL := AUrl;





end;


procedure TFormServisRaporlar.UnimButton1Click(Sender: TObject);
VAR
RaporYolu,DosyaAdi:string;
 begin

    DmServisRapor.Query1.Close;
    DmServisRapor.Query1.Params[0].AsString:=FormServisTeklifi.DbAlisSatisNo.Text;
    DmServisRapor.Query1.Open();

RaporYolu:=UniServerModule.FilesFolderPath+'SerYedParVeOnayForm.fr3';
PrepareAndShow(frxReport1, frxPDFExport1,RaporYolu);


end;  

tablet ekran boyutunda tam ilken raporun boyutu küçülüyor 

unimpdfframe1.aling=alClient olarak ayarladıgım halde

a.jpeg

 

pc.png

Link to comment
Share on other sites

  • 3 months later...
×
×
  • Create New...