Drucker liefert unterschiedliche Fontgrößen

[Bummi]

willst Du es mal so probieren?

Delphi-Quellcode:

var
  y:Integer;
  fs:integer;
begin
with Printer do
  begin
        fs := 6;
        BeginDoc;
        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];
        y := -50;
        canvas.TextOut(50,y,'Blablabla');
        y := -150;
        canvas.TextOut(50,y,'Blablabla');
        EndDoc;
  end;
end;