{ tell printer to go to the default by setting     the PrinterIndex value to -1 }   Printer.PrinterIndex := -1;   { make our combobox non-editable }   ComboBox1.Style      := csDropDownList;   { set our combobox items to the printer printers }   ComboBox1.Items      := Printer.Printers;   { set combobox to view the default printer     according to printer printerindex as set above }   ComboBox1.ItemIndex  := Printer.PrinterIndex; =================================================================== //从并行端口读取打印机状态function GetPrinterStatus:byte;asm  MOV DX,$379;  IN AL,DX;end;//获取打印机是否出错function CheckPrinter:boolean;vartemp:byte;begin  temp:=GetPrinterStatus;  Result:=not ( ((temp and $80)=0) //打印机忙 字串2   or ((temp and $20)<>0)  //打印机缺纸  or ((temp and $10)=0)    //打印机未联机  or ((temp and $08)=0) ); //打印机出错;end; =================================================================== Delphi中的打印机编程 所属类别：DELPHI推荐指数：★★★★文档人气：2231本周人气：3 发布日期：2006-5-11 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 NTAddPrinterConnection          为当前用户建立与打印机的联系            否 是 是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)却不在之列，要想使打印机正常工作和程序不出错，你还是老老实实手工给它加上吧。

评论