Perga Yazilim Posted January 18, 2022 Share Posted January 18, 2022 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 Link to comment Share on other sites More sharing options...
mehmet07 Posted April 21, 2022 Share Posted April 21, 2022 Merhaba,sorunu cozebildiniz mi acaba? Link to comment Share on other sites More sharing options...
Recommended Posts