请问如何把MM转换成像素点(PIX)(30分)

打个比方.由于在打印时用户要自己设定宽度即MM,而我现有的QUICKREPORT中的PAGE设置的为像素点pix.
我怎么把他转换呢

如果以下程序可以把像素点转换成MM了，反过来就不用我再说了吧。
function PixelToMM(APixel:Real) : Real;
var PixelRate : Real;
begin
case GetDeviceCaps(Printer.Handle, LOGPIXELSX) of //打印机的精度
120 : PixelRate:=0.1701;
180 : PixelRate:=0.1458;
300 : PixelRate:=0.0898;
360 : PixelRate:=0.0729;
600 : PixelRate:=0.0449;
720 : PixelRate:=0.0365;
1200: PixelRate:=0.0224;
end;
Result := APixel * PixelRate;
end;

接受答案了.