用Delphi编写打印程序的窍门

如果你想自己用Delphi编写一个打印程序 那么 下面这些技巧或许对你有所帮助

获取 显示当前打印机的分辨率

Windows下的打印分辨对打印程序有着至关重要的作用 如果你想知道打印机的分辨率 请在程序中加入一行

ShowMessage(′水平分辨率′＋inttostr(GetDeviceCaps(printer Handle LOGPIXELSX))＋chr( )＋′垂直分辨率:′＋ inttostr(GetDeviceCaps(printerHandle LOGPIXELSY)))

结果就一目了然了

将结果直接送到打印机

Delphi提供了两种打印方式 一是将结果输送到Form 再调用Form的print方法将结果输送到打印机 二是将结果直接输送到打印机 如果你采用第一种方式 则无论你怎样调整Form的PrintScal属性 打印出来的东西也不会让你满意 因此建议采用第二种方式纳兆

尽洞世租量不要使用AssignPrn

尽管AssignPrn简化了文本打印 *** 作 使输出到打印机像输出到文件一样简单 但简单带来的是一系列的不方便 你无法知道当前打印的行数 无法准确控制行距 无法灵活改变字体字形等等 还返迹是用打印机的Canvas属性进行打印吧

　 　 用打印机的点数做度量单位

如果想让打印程序在任何打印机上都能正常地打印 你就必须改变你的度量单位 如果采用固定的度量 不同分辨率的打印效果是不同的 举例来讲 printerCanvasrectangle( )在 × 的佳能 SP上能打出一个 英寸宽 英寸高的矩形 但在 × 的惠普 L上只能打出 英寸宽 英寸高的矩形 使用打印机的点数做为度量单位是一个明智的选择 具体做法如下

Var PointX PointY:integerPointX:=GetDeviceCaps(printerHandle LOGPIXELSX)PointY:=GetDeviceCaps(printerHandle LOGPIXELSX)printerCanvasrectangle( PointX＊ PointY＊ )

这样 无论你使用什么样的打印机 都能得到一个 英寸宽 英寸高的矩形

添加打印程序单元

lishixinzhi/Article/program/Delphi/201311/24867

Api函数列表

--与打印相关

Api函数名 函数说明 适用范围

W3.x W95 NT

AddPrinterConnection 为当前用户建袭举茄立与打印机的联系 否 是 是

StartPagePrinter 开始打印机 否 是 是

StartDoc 开始打印作业 是 是 是

StartDocPrinter 开始打印作业 否 是 是

AddPrintProvidor 加入一个打印机支持器 否 是 是

AddForm 加入一个打印机窗体 否 是 是

AddPort 加入一个打印机端口 否 是 是

AddMonitor 加入一个打印机管理器 否 是 是

ShellExecute 打开或打印指定文件 否 是 是

ClosePrinter 关闭打开的打印机 否 是 是

WritePrinter 向打印机输出数据 否 是 是

AddPrinter 在打印机服务器上建立一个打印机 否 是 是

SetAbortProc 设备打印作业的放弃函数 否 是 是

SetPrinter 设置打印机信息 否 是 是

SetPrinterData 设置打印机配置 否 是 是

SetJob 设置打印作业信息 否 是 是

ResetPrinter 设置打印数据类型和设备模式值 否 是 是

DeletePrinterConnection 删除与打印机的连接 否 是 是

DeletePrintProcessor 删除打拍察印机处理器 否 是 是

DeletePrinterDriver 删除打印机驱动程序 否 是 是

DeletePrinter 删除打印机服务器上的打印机 否 是 是

DeleteMonitor 删除打印机监视器 否 是 是

DeletePrintProvidor 删除打印机提供者 否 是 是

DeleteForm 删除打印机窗体层差 否 是 是

AbortPrinter 删除打印机缓冲文件 否 是 是

DeletePort 删除打印机端口 否 是 是

AddJob 启动一个打印作业 否 是 是

AdvancedDocumentProperties 进行打印机高级设置 否 是 是

PrintDlg 建立打印文本对话框 否 是 是

EnumPrintProcessors 枚举已安装的打印机处理器 否 是 是

EnumPrinterDrivers 枚举已安装的打印机驱动程序 否 是 是

EnumPorts 枚举可用打印机端口 否 是 是

EnumPrintProcessorDatatypes 枚举打印机所支持的数据类型 否 是 是

EnumForms 枚举所支持的打印机窗体 否 是 是

AbortDoc 终止一项打印作业 是 是 是

PrinterProperties 修改打印机属性 否 是 是

AddPrintProcessor 将打印处理器复制到打印机服务器中 否 是 是

AddPrinterDriver 将打印机驱动程序复制到打印机服务器中 否 是 是

PrinterMessageBox 显示打印作业出错信息 否 是 是

ConnectToPrinterDlg 显示浏览对话并连接网络打印机 否 是 是

EndPagePrinter 结束打印页 否 是 是

EndDoc 结束打印作业 是 是 是

EndDocPrinter 结束打印作业 否 是 是

StartPage 准备打印机接收数据 是 是 是

WaitForPrinterChange 监测打印机或打印机服务器变化 否 是 是

GetPrintProcessorDirectory 获取打印机驱动处理器路径 否 是 是

GetPrinterDriver 获取打印机答耐驱动程序信息 否 是 是

GetPrinterDriverDirectory 获取打印机驱动程序路径 否 是 是

GetPrinter 获取打印机信息 否 是 是

---