Pixel in cm umrechnen

[ipworks]

Hallo
vielleicht hilft dir das:

Delphi-Quellcode:

function Tbuchungsform.Drucklinks(mm:integer):integer;
begin
     result:=StrtoInt(FloattoStrF(mm*GetDeviceCaps(Printer.Handle, LogPixelsX)/25.4,fffixed,10,0))
end;

function Tbuchungsform.Druckoben(mm:integer):integer;
begin
     result:=StrtoInt(FloattoStrF(mm*GetDeviceCaps(Printer.Handle, LogPixelsY)/25.4,fffixed,10,0))
end;

mfg
Peter