如何将毫米（MM）单位转换为像素（Pixel）单位，请大家帮帮忙呀！

[zxp922]

我写了一个函数，但实际打印输出时与所想实现的相差甚远，大家多多帮忙哦！

Function MMToPixel(MM: Integer): Integer;
var
p: TPoint;
begin
SetMapMode(printer.Handle, MM_HIMETRIC);
p := Point(MM * 100, 100);
LPToDP(printer.Handle, p, 1);
Result := p.X;
SetMapMode(printer.Handle, MM_TEXT);
end;

[zxp922]

Eastunfail(龍子龍孫)　　　　(家里停宽带了) ：

我要的是打印机每英寸的像素量

[立志做一个佳娃~]

打印机可就不好说了，每种型号的打印机的标准是有差别的。。

[zxp922]

trunc(MM/25.4*pixelx);这个计算公式成立吗？

[SuanAddMiao]

您想的有点简单了，这里面还有很多问题。

[zxp922]

我是新手，还请你们多多帮助我呀

[erace992001]

MM转换成象素是固定的,也就是1MM=3.2Pixel这个有点误差,打印出来大概十米相差2MM左右

但如果是自己写打印函数的话,比较麻烦,要计算打印机的分辨率,如果只是在屏幕上显示,然后用WINDOWS的标准打印程序,就可以采用上面的公式来计算!

[zxp922]

现在需要解决的问题就是打印机的分辨率问题，因为这个问题是关于定位打印的问题、还有就是打印机的型号不可能都是一样的！还请各位高手帮帮忙啦！

[zxp922]

没人帮我解决呀

[YFLK]

你只要知道打印机当时打印时的分辨率，然后再换算下:分辨率/25.4

[zxp922]

不管谁只要能提供完美的软件方法，我愿送400分给他！

[zxp922]

YFLK(远方来客) :
你能给个例子吗？

[shaw_jansin]

xpcm := getdevicecaps(PRINTER.HANDLE,LOGPIXELSX)/2.54;
ypcm := getdevicecaps(PRINTER.HANDLE,LOGPIXELSY)/2.54;
printer.BeginDoc;
printer.Canvas.TextOut(3.1*xpcm,5.3ypcm,'Text'); //左3.1厘米,上5.3厘米处打印'Text'
printer.EndDoc();

[zxp922]

ultima_thule(ultima_thule) :
你好，谢谢你的回复，这样处理的话，如果遇到折行打印的话该如何处理呢？

[netcha]

取分边率, 一乘就可以了

[zfang]

关注一下，顶

[shaw_jansin]

可以先把内容放到TMEMO中，让TMEMO帮你分行，然后把TMEMO中的内容按行打印出！

[inforum]

function mm2pixX(X: Extended): integer;
begin
//横向mm转换为像素点
Result := Trunc(X/25.38*GetDeviceCaps(Printer.Handle, LOGPIXELSY)+0.5);
end;

function mm2pixY(Y: Extended): integer;
begin
//纵向mm转换为像素点
Result := Trunc(Y/25.38*GetDeviceCaps(Printer.Handle, LOGPIXELSX)+0.5);
end;

[inforum]

注意：与打印机有关，换另外的打印机值会变的！

[inforum]

还有一个变态的现象，就是winxp下保存的图元文件总归相差一点

[zxp922]

ultima_thule(ultima_thule:
你好，用MEMO分行确实不错，还是存在一个问题，那就是每行的位置并不相同！左边距有大有小！