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