Na report sam postavio TQRPDFFilter koji koristim da bih mogao report spremiti kao PDF
Kreirao sam klasu kojoj prosljeđujem QR i koja automatski generira PDF na načine:
Code:
...
aPDFFilt := TQRPDFDocumentFilter.Create(self.PdfName + '.pdf');
aPDFFilt.CompressionOn := True;
aPDFFilt.TextOnTop := true;
aPDFFilt.LeftMargin := -10;
aPDFFilt.AddFontMap('Bookman-Old-Style:Times');
aPDFFilt.AddFontMap('Bookman-Old-Style:Times New Roman');
aPDFFilt.FontHandling := fhAutoEmbed;
if QRComposit <> nil then
self.QRComposit.ExportToFilter(aPDFFilt)
else
self.QR.ExportToFilter(aPDFFilt);
aPDFFilt.free;
...
...
aPDFFilt := TQRPDFDocumentFilter.Create(self.PdfName + '.pdf');
aPDFFilt.CompressionOn := True;
aPDFFilt.TextOnTop := true;
aPDFFilt.LeftMargin := -10;
aPDFFilt.AddFontMap('Bookman-Old-Style:Times');
aPDFFilt.AddFontMap('Bookman-Old-Style:Times New Roman');
aPDFFilt.FontHandling := fhAutoEmbed;
if QRComposit <> nil then
self.QRComposit.ExportToFilter(aPDFFilt)
else
self.QR.ExportToFilter(aPDFFilt);
aPDFFilt.free;
...
PdfName, QRCpomosit i QR su ranije definirani i dodjeljene su im vrijednosti.
"Sava As" i automatski report rade OK osim u jednoj stvari:
Budući da qr nezna prikazati vektorske slike, kreirali smo naš font koji koristimo radi ispisa pečata, potpisa itd. PDF koji se kreira s tim fontom, na računalima koja imaju instaliran font je OK, ali na računalima na kojima nije - ne vidi se, tj. vide se crne točke.
Kako napravit da se tekst koji je ispisan našim fontom prikazuje kao slika ili se možda može definicija fonta ubaciti u PDF?
Ideje za rješenje?