如果你想自己用delphi编写一个打印程序，那么，下面这些技巧或许对你有所帮助。
1.获取、显示当前打印机的分辨率
windows下的打印分辨对打印程序有着至关重要的作用，如果你想知道打印机的分辨率，请在程序中加入一行：
showmessage(′水平分辨率′＋inttostr(getdevicecaps(printer handle,logpixelsx))＋chr(13)＋′垂直分辨率:′＋ inttostr(getdevicecaps(printerhandle,logpixelsy)));
结果就一目了然了。
2.将结果直接送到打印机
delphi提供了两种打印方式：一是将结果输送到form，再调用form的print方法将结果输送到打印机，二是将结果直接输送到打印机。如果你采用第一种方式，则无论你怎样调整form的printscal属性，打印出来的东西也不会让你满意。因此建议采用第二种方式。
3.尽量不要使用assignprn
尽管assignprn简化了文本打印操作，使输出到打印机像输出到文件一样简单。但简单带来的是一系列的不方便：你无法知道当前打印的行数，无法准确控制行距，无法灵活改变字体字形等等。还是用打印机的canvas属性进行打印吧。
4.用打印机的点数做度量单位
如果想让打印程序在任何打印机上都能正常地打印，你就必须改变你的度量单位。如果采用固定的度量，不同分辨率的打印效果是不同的。举例来讲：printercanvasrectangle(0,0,360,720)在360×360的佳能4200sp上能打出一个1英寸宽、2英寸高的矩形，但在600×600的惠普6l上只能打出0.6英寸宽、1.2英寸高的矩形。使用打印机的点数做为度量单位是一个明智的选择。具体做法如下：
var pointx,pointy:integer;
pointx:=getdevicecaps(printerhandle,logpixelsx);
pointy:=getdevicecaps(printerhandle,logpixelsx);
printercanvasrectangle(0,0,pointx＊1,pointy＊2)
这样，无论你使用什么样的打印机，都能得到一个1英寸宽、2英寸高的矩形。
5.添加打印程序单元
尽管delphi在生成窗体时会自动在uses部分加入许多程序单元，但打印程序单元(printers)却不在之列，要想使打印机正常工作和程序不出错，你还是老老实实手工给它加上吧。
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
