用Delphi編寫打印程序的竅門

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