如何在任意一种打印机上都输出90毫米宽，55毫米高的名片？

Question

这个好象要在PHOTOSHOP中才能实行很简单的。

Answer 1

vcshcn
试过吗？有什么问题吗？

Answer 2

 uses printers; printer.BeginDoc;
 printer.Canvas.Font:=Edit4.Font;
 printer.Canvas.Font.siza:=10;
 printer.Canvas.TextOut(xpos,ypos,text);
 printer.Canvas.TextOut(126*bei+10*4,152*bei+5*4,ComboBox1.text);
 printer.EndDoc; 其中xpos,ypos随便你设定，text也随便你设定打印内容！
可以一试！

Answer 3

uses printers;printer.BeginDoc;
printer.Canvas.Font:=Edit4.Font;
printer.Canvas.Font.siza:=10;
printer.Canvas.TextOut(xpos1,ypos1,text1);
printer.Canvas.Font.siza:=10;
printer.Canvas.TextOut(xpos2,ypos2,text2);
printer.Canvas.Font.siza:=10;
printer.Canvas.TextOut(xpos3,ypos3,text3);printer.EndDoc;其中xpos,ypos随便你设定，text也随便你设定打印内容！
可以一试！

Answer 4

var PixsPerInchX,PixsPerInchY:Integer;
InchX, InchY:Integer;PixsPerInchX := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
PixsPerInchY := GetDeviceCaps(Printer.Handle, LOGPIXELSY);
Length := 90/25.4*PixsPerInchX;
Height :=55/25.4*PixsPerInchY;
Printer...

Answer 5

to nanlaiyan(南来雁):
您的方法打出来的太大了。to wyb716(小刀):
您的方法打出来的太小了。这可怎么办呀？

Answer 6

wyb716(小刀)的办法可以，但后两句应改一下
将每英寸像素点转换为每厘米像素点
Length := （PixsPerInchX）*100 div 254;
Height :=(PixsPerInchY)*100 div 254;
然后事情就好办了
我曾经做过一个套打发票据，可以精确到0.01毫米

Answer 7

请问您的length是什么？
是form.width吧，那么下面是form.height,然后调用form.print
如果是这样，请您会应一句，我确定一下。
谢谢大家的帮助。