1英寸=2.54厘米
1英寸=25.4毫米
如果你想自己用Delphi编写一个打印程序 那么 下面这些技巧或许对你有所帮助
获取 显示当前打印机的分辨率
GetDeviceCaps(printer.Handle,LOGPIXELSX)
GetDeviceCaps(printer.Handle,LOGPIXELSY)
Windows下的打印分辨对打印程序有着至关重要的作用 如果你想知道打印机的分辨率 请在程序中加入一行
ShowMessage(′水平分辨率′+inttostr(GetDeviceCaps(printer.Handle,LOGPIXELSX))+chr()+′垂直分辨率:′+ inttostr(GetDeviceCaps(printer.Handle,LOGPIXELSY)));
结果就一目了然了
将结果直接送到打印机
Delphi提供了两种打印方式 一是将结果输送到Form 再调用Form的print ... 将结果输送到打印机 二是将结果直接输送到打印机 如果你采用第一种方式 则无论你怎样调整Form的PrintScal属性 打印出来的东西也不会让你满意 因此建议采用第二种方式
尽量不要使用AssignPrn
尽管AssignPrn简化了文本打印操作 使输出到打印机像