用Delphi編寫打印程序的竅門

如果你想自己用Delphi編寫一個打印程序，那么，下面這些技巧或許對你有所幫助。
1.獲娶顯示當前打印機的分辨率
Windows下的打印分辨對打印程序有著至關重要的作用，如果你想知道打印機的分辨率，請在程序中加入一行：ShowMessage(′水平分辨率′＋inttostr(GetDeviceCaps(printer�盚andle,LOGPIXELSX))＋chr(13)＋′垂直分辨率：′＋inttostr(GetDeviceCaps(printer�盚andle,LOGPIXELSY)));結果就一目了然了。
2.將結果直接送到打印機
Delphi提供了兩種打印方式：一是將結果輸送到Form，再調用Form的print方法將結果輸送到打印機，二是將結果直接輸送到打印機。如果你采用第一種方式，則無論你怎樣調整Form的PrintScal屬性，打印出來的東西也不會讓你滿意。因此建議采用第二種方式。
3.盡量不要使用AssignPrn
盡管AssignPrn簡化了文本打印操作，使輸出到打印機像輸出到文件一樣簡單。但簡單帶來的是一系列的不方便：你無法知道當前打印的行數，無法準確控制行距，無法靈活改變字體字形等等。還是用打印機的Canvas屬性進行打印吧。
4.用打印機的點數做度量單位
如果想讓打印程序在任何打印機上都能正常地打印，你就必須改變你的度量單位。如果采用固定的度量，不同分辨率的打印效果是不同的。舉例來講：printer�盋anvas�眗ectangle(0,0,360,720)在360×360的佳能4200SP上能打出一個1英寸寬、2英寸高的矩形，但在600×600的惠普6L上只能打出0��6英寸寬、1��2英寸高的矩形。使用打印機的點數做為度量單位是一個明智的選擇。具體做法如下：VarPointX,PointY:integer;PointX:=GetDeviceCaps(printer�盚andle,LOGPIXELSX);PointY:=GetDeviceCaps(printer�盚andle,LOGPIXELSX);printer�盋anvas�眗ectangle(0,0,PointX＊1,PointY＊2)這樣，無論你使用什么樣的打印機，都能得到一個1英寸寬、2英寸高的矩形。
5.添加打印程序單元
盡管Delphi在生成窗體時會自動在USES部分加入許多程序單元，但打印程序單元(Printers)卻不在之列，要想使打印機正常工作和程序不出錯，你還是老老實實手工給它加上吧。