Hi,
I got a problem with italic fonts in my generated PDFs.
I use the following code:
Code
procedure ItalicTest;
const
MMPerInch = 25.7;
var
PDFPrinter: TWPPDFPrinter;
Canvas: TCanvas;
PWidth, PHeight, Resolution: Integer;
begin
PDFPrinter := TWPPDFPrinter.Create(nil);
PDFPrinter.Filename := 'C:\Users\Andi\Documents\PDF Test\kursiv.pdf';
PDFPrinter.FontMode := wpEmbedSubsetTrueType_UsedChar;
PDFPrinter.CompressStreamMethod := wpCompressNone;
PDFPrinter.EncodeStreamMethod := wpEncodeNone;
PDFPrinter.BeginDoc;
Resolution := 300;
PWidth := Round((210 / MMPerInch) * Resolution);
PHeight := Round((297 / MMPerInch) * Resolution);
PDFPrinter.StartPage(PWidth, PHeight, Resolution, Resolution, 0);
PDFPrinter.Canvas.Font.Name := 'Comic Sans MS';
PDFPrinter.Canvas.Font.Size := 40;
PDFPrinter.Canvas.Font.Style := [fsItalic];
PDFPrinter.Canvas.TextOut(0, 0, 'Comic Sans MS italic');
PDFPrinter.EndPage;
PDFPrinter.EndDoc;
end;
Alles anzeigen
In the generated PDF i see "Comic Sans MS-italic" embedded but the text is displayed non italic.
Do i do something wrong? (The same code works for many other fonts correctly)
I also tried using the same Font in wordpad and print it via Adobe PDF Printer. That results in "ComicSansMS" being embedded and it is displayed italic.
Unfortunately I cannot attach files here but I can send you the generated PDFs if needed.