Wenn ich mich nicht irre, ist FontSIZE immer auf den Bildschirm bezogen, die printers rechnet die intern um. Du kannst aber auch selbst von MM auf Pixel umrechnen:
Delphi-Quellcode:
function GetScreenLogPixels: integer;
var
DC: HDC;
begin
DC := GetDC(0);
try
Result := GetDeviceCaps(
DC, LOGPIXELSY);
finally
ReleaseDC(0,
DC);
end;
end;
function GetPrinterLogPixels: integer;
// nach BeginDoc
begin
Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY);
end;