Texthöhe nicht proportional zu Textbreite ?!?

[Thorsten1867]

Ich versuche einen Text mit einer festen Breite einmal als Druckvorschau (96dpi) und dann als Ausdruck (z.B. 600dpi) auszugeben. Leider ist der Text auf dem Ausdruck sehr viel breiter als auf der Vorschau. Die Texthöhe scheint dabei gemäß DPI gleich groß zu sein.
Nachdem ich lediglich die Fonthöhe berechnen kann, bin ich langsam am verzweifeln, da sich Texthöhe und Textbreite nicht proportional zu verhalten scheinen. Auch ein Vergleich eines Ausdrucks von Wordpad mit PureBasic ergabe, dass der Text unter PureBasic breiter ist.

Anbei meine Berechnung der der Fontgröße:

Code: Alles auswählen

res_y = 297*96/25.4 ; Pixel DinA4 bei 96dpi

bzw.

Code: Alles auswählen

res_y = PrinterPageHeight() ; Pixel DinA4 für Drucker

Code: Alles auswählen

Procedure.f font(pt.w) ; Berechnung Fontgröße Point -> Pixel
  pixel.f = pt / 96 * Int(res_y * 25.4 / 297 + 0.5)
  ProcedureReturn pixel
EndProcedure