Delphi打印机编程

    本文地址: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代码