@Deddyh
hab ich mich so vertan? ich mein ich hätte eben soetwas gesehen.
Mist, ist Freitag:
Delphi-Quellcode:
procedure TPrinterCanvas.UpdateFont;
var
FontSize: Integer;
begin
if GetDeviceCaps(Printer.DC, LOGPIXELSY) <> Font.PixelsPerInch then
begin
FontSize := Font.Size;
Font.PixelsPerInch := GetDeviceCaps(Printer.DC, LOGPIXELSY);
Font.Size := FontSize;
end;
end;
Gruß
K-H