Hallo!
Ich habe ein kleines Problem beim kreieren eines pdf's mit japanischen Zeichen (siehe Link)
Das RTF lässt sich in Word (bei mir Word2000) öffnen und es scheint auch alles zu passen nur wenn ich versuche ein pdf daraus zu machen rutscht das erste Wort der Kopfzeile in den Body der zweiten Seite. Auch ist das Spacing der Tabelle der zweiten Seite nicht wirklich schön.
Hat da jemand eine Idee?
Folgenden Code benutze ich um das PDF zu erstellen:
Code
with TWPPDFPrinter.Create(nil) do
try
Modes := [wpClipRectSupport, wpAlwaysHighResPDF, wpNoTextScaling, wpExactTextPositioning];
CidFontMode := wpCIDUnicode;
PDFReadMode := wpdfStandard;
CanvasReference := wprefPrinter;
AutoLaunch := False;
EncodeStreamMethod := wpEncodeNone;
CompressStreamMethod := wpCompressFlate;
PageMode := pwUseNone;
ZoomMode := pwZoomDefault;
FontMode := wpEmbedTrueTypeFonts;
InMemoryMode := True;
Filename := tmpFileName;
Info.Producer := 'Tom24';
Info.Author := 'Schiller';
Info.Subject := metaData;
JPEGQuality := wpNoJPEG;
ScreenDpi := DefaultPrinterRes;
// begin printing
BeginDoc;
try
for counter := 0 to numPages - 1 do
begin
// in this version of wpTools the PageHeight/Width seems to be OK
// the Header property (should be called PageProperty...) holds
// the physical width and height in TWIPS of the page
// one twip is a 1/1440 of an inch!
StartPage(MulDiv(richText.Header.PageWidth, ScreenDpi.cx, cTwipsPerInch),
MulDiv(richText.Header.PageHeight, ScreenDpi.cy, cTwipsPerInch),
ScreenDpi.cx, ScreenDpi.cy, 0);
OutRect := Rect(0, 0, MulDiv(richText.Header.PageWidth, ScreenDpi.cx, cTwipsPerInch), MulDiv(richText.Header.PageHeight, ScreenDpi.cy, cTwipsPerInch));
h := outRect.Bottom - outRect.Top;
w := outRect.Right - outRect.Left;
try
// render the rtf page to the pdf printer
// note that without wppNoPageBackground the watermark would be
// overpainted!
richText.Memo.PaintRTFPage(counter, 0, 0, w, h, Canvas, [wppNoPageBackground]);
finally
EndPage;
end;
DoPDFProgress(((counter + 1)*100) div numPages);
end;
finally
EndDoc;
end;
finally
Free;
end;
Alles anzeigen
Ich habs auch direkt mit der Klasse TWPPDFExport mit den selben Einstellungen versucht. Leider mit dem gleichen Ergebnis.
lg
Michael Rabatscher