用Delphi编写打印程序的窍门

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简化了文本打印操作 使输出到打印机像输出到文件一样简单 但简单带来的是一系列的不方便 你无法知道当前打印的行