本文地址：http://tongxinmao.com/Article/Detail/id/259

Delphi中获取打印机设备名和端口名

uses Printers;

{$IFNDEF WIN32}
const MAX_PATH = 144;
{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);
var
   pDevice : pChar;
   pDriver : pChar;
   pPort    : pChar;
   hDMode : THandle;
begin
   if PrintDialog1.Execute then begin
     GetMem(pDevice, cchDeviceName);
     GetMem(pDriver, MAX_PATH);
     GetMem(pPort, MAX_PATH);
     Printer.GetPrinter(pDevice, pDriver, pPort, hDMode);
     if lStrLen(pDriver) = 0 then begin
       GetProfileString('Devices', pDevice, '', pDriver, MAX_PATH);
       pDriver[pos(',', pDriver) - 1] := #0;
     end;
     if lStrLen(pPort) = 0 then begin
       GetProfileString('Devices', pDevice, '', pPort, MAX_PATH);
       lStrCpy(pPort,   @pPort[lStrLen(pPort)+2]);
     end;
     Memo1.Lines.Add('Device := ' + StrPas(pDevice));
     Memo1.Lines.Add('Driver := ' + StrPas(pDriver));
     Memo1.Lines.Add('Port := ' + StrPas(pPort));
     FreeMem(pDevice, cchDeviceName);
     FreeMem(pDriver, MAX_PATH);
     FreeMem(pPort, MAX_PATH);
   end;
end;

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                     获取打印机信息                           否 是 是
GetPrinterData                 获取打印机配置信息                       否 是 是
GetForm                        获取打印机窗口信息                       否 是 是
EnumJobs                       获取打印作业信息                         否 是 是
GetJob                         获取打印作业信息                         否 是 是
OpenPrinter                    获取指定打印机的句柄                     否 是 是
ReadPrinter                    读打印机数据                             否 是 是
DocumentProperties             配置打印机设置                           否 是 是
ConfigurePort                  配置打印机端口                           否 是 是


用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英寸高的矩形。使用打印机的点数做为度量单位是一个明智的选择。具体做法如下：VarPointX,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)却不在之列，要想使打印机正常工作和程序不出错，你还是老老实实手工给它加上吧。

上一篇：C++ win32 USB打印机开发
下一篇：ZPL打印机.NET代码