用Delphi编写打印程序的窍门

如果你想自己用Delphi编写一个打印程序 那么 下面这些技巧或许对你有所帮助

获取 显示当前打印机的分辨率

Windows下的打印分辨对打印程序有着至关重要的作用 如果你想知道打印机的分辨率 请在程序中加入一行

ShowMessage(′水平分辨率′＋inttostr(GetDeviceCaps(printer Handle LOGPIXELSX))＋chr( )＋′垂直分辨率:′＋ inttostr(GetDeviceCaps(printerHandle LOGPIXELSY)));

结果就一目了然了

将结果直接送到打印机

Delphi提供了两种打印方式 一是将结果输送到Form 再调用Form的print方法将结果输送到打印机 二是将结果直接输送到打印机 如果你采用第一种方式 则无论你怎样调整Form的PrintScal属性 打印出来的东西也不会让你满意 因此建议采用第二种方式

尽量不要使用AssignPrn

尽管AssignPrn简化了文本打印 *** 作 使输出到打印机像输出到文件一样简单 但简单带来的是一系列的不方便 你无法知道当前打印的行数 无法准确控制行距 无法灵活改变字体字形等等 还是用打印机的Canvas属性进行打印吧

用打印机的点数做度量单位

如果想让打印程序在任何打印机上都能正常地打印 你就必须改变你的度量单位 如果采用固定的度量 不同分辨率的打印效果是不同的 举例来讲 printerCanvasrectangle( )在 × 的佳能 SP上能打出一个 英寸宽 英寸高的矩形 但在 × 的惠普 L上只能打出 英寸宽 英寸高的矩形 使用打印机的点数做为度量单位是一个明智的选择 具体做法如下

Var PointX PointY:integer; PointX:=GetDeviceCaps(printerHandle LOGPIXELSX); PointY:=GetDeviceCaps(printerHandle LOGPIXELSX); printerCanvasrectangle( PointX＊ PointY＊ )

这样 无论你使用什么样的打印机 都能得到一个 英寸宽 英寸高的矩形

添加打印程序单元

lishixinzhi/Article/program/Delphi/201311/24867

第一步：登陆淘宝助理

用户名和密码就是你登陆淘宝网的用户名和密码

第二步：导入等待发货的交易

登陆后点击导航中的“交易管理”

进入交易管理后“下载订单（待发货）“，可按“关键字”、“时间”来筛选订单

第三步：创建快递单模板

进入模板管理后选择您所要发货的快递公司的快递单模板，然后保存（下图以“EMS”为例）：

6

第四步：勾选所需要打印快递单的订单，打印：

以上就是关于用Delphi编写打印程序的窍门全部的内容，包括:用Delphi编写打印程序的窍门、淘宝卖家电脑下单和打印单程序序咋 *** 作、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！