Druckbarer Bereich des Druckers unter Windows

Hallo in die Runde,

ich möchte einen Text an das Ende des druckbaren Bereichs drucken.
Unter MacOS funktioniert das wie erwartet, aber unter Windows gibt es Probleme.

Meine Lösung sieht (gekürzt) folgendermaßen aus:

if DruckerSetUp.PageSetupDialog then
dieDruckgraphik= OpenPrinterDialog(DruckerSetup)
if dieDruckGraphik <>nil then
y= DruckerSetUp.Height-dieDruckgraphik.TextHeight +dieDruckgraphik.TextAscent
dieDruckgraphik.DrawString(tempString, 0,y)
end if
end if

Offensichtlich sind die Ergebnisse von DruckerSetUp.Height und DruckerSetUp.Width unter Windows nicht brauchbar.
In dem Zusammenhang musste ich auch feststellen, das das Standardbeispiel von XOJO “StyledTextPrinterExample” unter Windows auch nicht funktioniert.

Wer kann mir mir helfen?