Hallo Zusammen,
muss mich wieder melden. Das mit dem Test des Tools hat nicht funktioniert, zumal auch der Support sehr bescheiden war.
Ich habe mich nun dazu entschlossen das Tool von Synopse zu nehmen, siehe
Synopse PDF Engine.
Kennt jemand das Tool bzw. hat es auch im Einsatz?
Es funktioniert eigentlich ganz gut, nur das rendern macht ab und an Problem.
Ich erzeuge zwei PDF's von zwei verschiedenen Rechnungen. Die eine Rechnung passt, bei der anderen verschieben sich die Beträge.
Ich bin mir nur nicht sicher, ob es am QR liegt oder an dem Tool selbst.
Die QR's sehen alle gut aus, ebenso wenn ich den QR über Freepdf erzeuge, sieht es gut aus.
Hier der Source code was passiert:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
| procedure CreateReportAsPDF(aReport: TQuickRep; const aFileName: TFileName);
var Pdf: TPdfDocument;
aMeta: TMetaFile;
i: integer;
begin
Pdf := TPdfDocument.Create;
try
aReport.Prepare;
pdf.DefaultPaperSize := psA4;
for i := 1 to aReport.QRPrinter.PageCount do begin
Pdf.AddPage;
aMeta := aReport.QRPrinter.GetPage(i);
try
Pdf.Canvas.RenderMetaFile(aMeta,1,0,0);
finally
aMeta.Free;
end;
end;
Pdf.SaveToFile(aFileName);
finally
Pdf.free;
end;
end; |
Sehr seltsam ist, wenn ich das Format der Variable im QR von 11,2 auf 7,2 ändere, dann passt es.
Vielen Dank schon mal für die Hilfe.
Gruß Klaus
Moderiert von 
Th69: URL-Titel hinzugefügt
Moderiert von Th69: Delphi-Tags hinzugefügt
