Drucker liefert unterschiedliche Fontgrößen

[p80286]

Ggf hilft Dir canvas.FontUpdate weiter.

Delphi-Quellcode:

SetMapMode(Handle, MM_LOMETRIC);
        canvas.Font.Name := 'Times New Roman';
        canvas.Font.Size := round(10.0 * fs *(25.4/GetDeviceCaps(printer.handle, LOGPIXELSX)));;
        canvas.Font.Style := [fsBold];
        canvas.FontUpdate;

Gruß
K-H