Hallo,
wenn ich mit wPDF ein Canvas "drucke", dann funktioniert das nur richtig, wenn ich eine Auflösung von 1024x768 einstelle. Ich versuche einen Plan von TDBPlanner von TMSSOFTWARE.com als PDF zu erstellen.
Bei höheren Auflösungen wird der Plan rechts und unten abgehakt. Was ist falsch am folgenden Code (aus dem Handbuch entnommen)? Ich benutze Delphi 5 und die aktuellste Version von wPDF.
Code
PDF.InMemoryMode := True;
PDF.Stream := Stream;
PDF.FileName := FileName;
PDF.BeginDoc;
Res := 120;
DC := PDF.Canvas.Handle;
curr_resX := GetDeviceCaps(DC,LOGPIXELSX);
curr_resY := GetDeviceCaps(DC,LOGPIXELSY);
SetMapMode(DC, MM_ANISOTROPIC);
SetWindowExtEx(DC,res, res, nil);
SetViewPortExtEx(DC, curr_resX, curr_resY, nil);
SetViewPortOrgEx(DC, 0, 0, nil);
PDF.StartPage( Round(29.7/2.54*res), Round(21/2.54*res), res, res, 0);
DBPlanner1.PrintTo(PDF.Canvas);
PDF.EndPage;
PDF.EndDoc;
Alles anzeigen
Viele Gruesse,
Sven Heuer