用Delphi編寫打印程序的竅門

如果你想自己用Delphi編寫一個打印程序，那麼，下面這些技巧或許對你有所幫助。

　　1.獲取、顯示當前打印機的分辨率

　　Windows下的打印分辨對打印程序有著至關重要的作用，如果你想知道打印機的分辨率，請在程序中加入一行：

　　ShowMessage(′水平分辨率′＋inttostr(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)卻不在之列，要想使打印機正常工作和程序不出錯，你還是老老實實手工給它加上吧。