发信人: x_file()
整理人: yueqs(2000-12-05 19:17:04), 站内信件
|
转自复旦日月光华：
发信人: swimming (网中之鱼), 信区: Visual
标 题: 用Delphi编写打印程序的窍门(转载）
发信站: 日月光华站 (Wed Apr 21 17:55:31 1999) , 转信
如果你想自己用Delphi编写一个打印程序，那么，下面这些技巧或许对你有
所帮助。
1.获取显示当前打印机的分辨率
Windows下的打印分辨对打印程序有着至关重要的作用，如果你想知道
打印机的分辨率，请在程序中加入一行：ShowMessage('水平分辨率'+inttost
r(GetDeviceCaps(printer.Handle,LOGPIXELSX))+chr(13)+'垂直分辨率：'
+inttostr(GetDeviceCaps(printer.Handle,LOGPIXELSY)));结果就一目了
然了。
2.将结果直接送到打印机
Delphi提供了两种打印方式：一是将结果输送到Form，再调用Form的
print方法将结果输送到打印机，二是将结果直接输送到打印机。如果你采用第
一种方式，则无论你怎样调整Form的PrintScal属性，打印出来的东西也不会让
你满意。因此建议采用第二种方式。
3.尽量不要使用AssignPrn
尽管AssignPrn简化了文本打印操作，使输出到打印机像输出到文件一
样简单。但简单带来的是一系列的不方便：你无法知道当前打印的行数，无法准
确控制行距，无法灵活改变字体字形等等。还是用打印机的Canvas属性进行打印
吧。
4.用打印机的点数做度量单位
如果想让打印程序在任何打印机上都能正常地打印，你就必须改变你的
度量单位。如果采用固定的度量，不同分辨率的打印效果是不同的。举例来讲：
printer.Canvas.rectangle(0,0,360,720)在360×360的佳能4200SP上能打
出一个1英寸宽、2英寸高的矩形，但在600×600的惠普6L上只能打出0.6英寸宽
、1.2英寸高的矩形。使用打印机的点数做为度量单位是一个明智的选择。具体
做法如下：Var PointX,PointY:integer;
PointX:=GetDeviceCaps(printer.Handle,LOGPIXELSX);
PointY:=GetDeviceCaps(printer.Handle,LOGPIXELSX);
printer.Canvas.rectangle(0,0,PointX*1,PointY*2)这样，无论你
使用什么样的打印机，都能得到一个1英寸宽、2英寸高的矩形。
5.添加打印程序单元
尽管Delphi在生成窗体时会自动在USES部分加入许多程序单元，但打印
程序单元(Printers)却不在之列，要想使打印机正常工作和程序不出错，你还
是老老实实手工给它加上吧?
※ 来源:·日月光华站 bbs.fudan.edu.cn·[FROM: 10.64.5.88]
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.96.185.216]
|
|