delphi 打印.doc

用Delphi编写打印程序的窍门1999-04-13 00:00作者： 出处： 责任编辑：如果你想自己用Delphi编写一个打印程序，那么，下面这些技巧或许对你有所帮助。1.获取显示当前打印机的分辨率Windows下的打印分辨对打印程序有着至关重要的作用，如果你想知道打印机的分辨率，请在程序中加入一行：Show Message(+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)在360360的佳能4200SP上能打出一个1英寸宽、2英寸高的矩形，但在600600的惠普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)却不在之列，要想使打印机正常工作和程序不出错，你还是老老实实手工给它加上吧。(湖北杨德军)Delphi打印机设置Delphi打印机设置2009-02-03 19:192009-02-03 15:37/s/blog_46666bf90100001f.html 分类：技术 以下是来自Borland公司的完整例子。请注意其中两条判断语句，这说明有时候仅仅凭getprinters并不能保证信息的正确，还需要WIN.INI的帮助。uses printers;$IFNDEF WIN32const MAX_PATH = 144;ENDIFprocedure TForm1.Button1Click(Sender : TObject);var pDevice : pChar;pDriver : pChar;pPort : pChar;hDMode : THandle;beginif PrintDialog1.Execute then beginGetMem(pDevice,cchDeviceName);GetMem(pDriver,MAX_PATH);GetMem(pPort,MAX_PATH);Printer.GetPrinter(pDevice,pDriver,pPort,hDMode);if lStrLen(pDriver) = 0 then beginGetProfileString(Devices,pDevice,pDriver,MAX_PATH);pDriverpos(,pDriver) - 1 := #0;end;if lStrLen(pPort) = 0 then beginGetProfileString(Devices,pDevice,pPort,MAX_PATH);lStrCpy(pPort,pPortlStrLen(pPort) + 2);end;FreeMem(pDevice,cchDeviceName);FreeMem(pDriver,MAX_PATH);FreeMem(pPort,MAX_PATH);end;end; 获取打印机队列的状态信息：在有些情况下，需要获取打印机队列的状态信息，可以通过WindowsAPI函数ENumJobs来获取打印机队列的状态信息。下面的程序片断对获取打印机队列的状态信息进行了说明。（1）创建一个新工程；（2）在窗体Form1中添加一个Button组件和一个Memo组件，进行相关属性的设置；（3）添加Button1的OnClick事件。procedure TForm1.Button1Click(Sender :TObject);varLPHandle : THandle;/打印机句柄LPStrBuf : Array 0.256 of Char;/打印机名称NoJobs : Word; /希望获取的作业数s : LongWord; /Job_Info的字节数Job_Info : Array 0.10 of JOB_INFO_1; /打印队列信息cbNeeded : Cardinal;cReturned : Cardinal; /返回的作业数ret : LongBool;I : integer;beginLPStrBuf := HPLaserJet;/指定打印机名/打开打印机if OpenPrinter() thenbeginMessageBox(Form1.Handle,打开打印机失败。,信息,MB_OK);Exit;end;s := SizeOf(Job_Info);cbNeeded := 0;cReturned := 0;NoJobs := 10;ret := ENumJobs(LPHandle,0,NoJobs,1,Job_Info,s,cbNeeded,cReturn);/显示打印队列信息Memo1.Lines.Add(共有打印任务： + InttoStr(cReturned) + 个。);for I := 0 to cReturned -1 doMemo1.Lines.Add(第 + IntToStr(I+1) + 个打印任务有 + IntToStr(Job_InfoI.TotalPages) + 页。);end;在进行测试的时候，应根据系统中安装的打印机设置LPStrBuf的数值，可以通过Windows系统的“控制面板”打开打印机管理器验证运行结果。 获取默认打印机的信息：在Windows的Win.ini文件中有下面的一些配置信息：Windowsload = run =NullPort = Nonedevice = HPLaserJetIII,HPPCL5MS,LPT1.其中Windows节的device键中指明了当前系统中默认打印机的信息。可以通过WindowsAPI函数GetProfileString获取该信息。函数GetProfileString的原形如下：DWORDGetProfileString(LPCTSTRlpAppName, /指定节名的字符串LPCTSTRlpKeyName, /指定键名的字符串LPCTSTRlpDefault, /没有找到键名时返回的字符串LPTSTRlpReturnedString, /在键名找到时返回的字符串DWORDnSize /lpReturnedString的字节数);例子如下：（1）创建一个新的工程；（2）在窗体Form1上添加一个Button组件和一个Edit组件，进行相关属性设置；（3）添加Button1的OnClick事件。procedure TForm1.Button1Click(Sender : TObject);var AppName : Array 0.256 of Char; /节名称字符串KeyName : Array 0.256 of Char; /键名称字符串DefaultString : Array 0.256 of Char; /在键名没找到时默认返回的字串ReturnedString : Array 0.256 of Char; /在键名找到时返回的字串beginAppName := Windows;/节名称KeyName := device; /键名称GetProfileString(AppName,KeyName,DefaultString,ReturnedString,Sizeof(ReturnedString);Edit1.Text := ReturnedString;/显示结果end;以上测试可打开win.ini进行对照。delphi获取打印机名及端口号2009-12-21 15:57Delphi中获取打印机设备名和端口名uses Printers;$IFNDEF WIN32const MAX_PATH = 144;$ENDIFprocedure TForm1.Button1Click(Sender: TObject);varpDevice : pChar;pDriver : pChar;pPort : pChar;hDMode : THandle;beginif PrintDialog1.Execute then beginGetMem(pDevice, cchDeviceName);GetMem(pDriver, MAX_PATH);GetMem(pPort, MAX_PATH);Printer.GetPrinter(pDevice, pDriver, pPort, hDMode);if lStrLen(pDriver) = 0 then beginGetProfileString(Devices, pDevice, , pDriver, MAX_PATH);pDriverpos(, pDriver) - 1 := #0;end;if lStrLen(pPort) = 0 then beginGetProfileString(Devices, pDevice, , pPort, MAX_PATH);lStrCpy(pPort, pPortlStrLen(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)在360360的佳能4200SP上能打出一个1英寸宽、2英寸高的矩形，但在600600的惠普6L 上只能打出0 6英寸宽、1 2英寸高的矩形。使用打印机的点数做为度量单位是一个明智的选择。具体做法如 下：VarPointX,PointY:integer;PointX:=GetDeviceCaps(printer Handle,LOGPIXELSX);PointY:=GetDeviceCaps(printer Handle,LOGPIXELSX);printer Canvas rectangle(0,0,PointX1,PointY2)这样，无论你使用什么样的打印机，都能得到一个1英寸宽、2英寸高的矩形。5.添加打印程序单元尽管Delphi在生成窗体时会自动在USES部分加入许多程序单元，但打印程序单元(Printers)却不在之列，要想使打印机正常工作和程序不出错，你还是老老实实手工给它加上吧。 以下是来自Borland公司的完整例子。请注意其中两条判断语句，这说明有时候仅仅凭getprinters并不能保证信息的正确，还需要WIN.INI的帮助。 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); pDriverpos(,pDriver) - 1 := #0; end; if lStrLen(pPort) = 0 then begin GetProfileString(Devices,pDevice,pPort,MAX_PATH); lStrCpy(pPort,pPortlStrLen(pPort) + 2); end; FreeMem(pDevice,cchDeviceName); FreeMem(pDriver,MAX_PATH); FreeMem(pPort,MAX_PATH); end; end; 获取打印机队列的状态信息： 在有些情况下，需要获取打印机队列的状态信息，可以通过WindowsAPI函数ENumJobs来获取打印机队列的状态信息。 下面的程序片断对获取打印机队列的状态信息进行了说明。 （1）创建一个新工程； （2）在窗体Form1中添加一个Button组件和一个Memo组件，进行相关属性的设置； （3）添加Button1的OnClick事件。 procedure TForm1.Button1Click(Sender :TObject); var LPHandle : THandle;/打印机句柄 LPStrBuf : Array 0.256 of Char;/打印机名称 NoJobs : Word; /希望获取的作业数 s : LongWord; /Job_Info的字节数 Job_Info : Array 0.10 of JOB_INFO_1; /打印队列信息 cbNeeded : Cardinal; cReturned : Cardinal; /返回的作业数 ret : LongBool; I : integer; begin LPStrBuf := HPLaserJet;/指定打印机名 /打开打印机 if OpenPrinter() then begin MessageBox(Form1.Handle,打开打印机失败。,信息,MB_OK); Exit; end; s := SizeOf(Job_Info); cbNeeded := 0; cReturned := 0; NoJobs := 10; ret := ENumJobs(LPHandle,0,NoJobs,1,Job_Info,s,cbNeeded,cReturn); /显示打印队列信息 Memo1.Lines.Add(共有打印任务： + InttoStr(cReturned) + 个。); for I := 0 to cReturned -1 do Memo1.Lines.Add(第 + IntToStr(I+1) + 个打印任务有 + IntToStr(Job_InfoI.TotalPages) + 页。); end; 在进行测试的时候，应根据系统中安装的打印机设置LPStrBuf的数值，可以通过Windows系统的“控制面板”打开打印机管理器验证运行结果。 获取默认打印机的信息： 在Windows的Win.ini文件中有下面的一些配置信息： Windows load = run = NullPort = None device = HPLaserJetIII,HPPCL5MS,LPT1 . 其中Windows节的device键中指明了当前系统中默认打印机的信息。可以通过WindowsAPI函数GetProfileString获取该信息。函数GetProfileString的原形如下： DWORDGetProfileString( LPCTSTRlpAppName, /指定节名的字符串 LPCTSTRlpKeyName, /指定键名的字符串 LPCTSTRlpDefault, /没有找到键名时返回的字符串 LPTSTRlpReturnedString, /在键名找到时返回的字符串 DWORDnSize /lpReturnedString的字节数 ); 例子如下： （1）创建一个新的工程； （2）在窗体Form1上添加一个Button组件和一个Edit组件，进行相关属性设置； （3）添加Button1的OnClick事件。 procedure TForm1.Button1Click(Sender : TObject); var AppName : Array 0.256 of Char; /节名称字符串 KeyName : Array 0.256 of Char; /键名称字符串 DefaultString : Array 0.256 of Char; /在键名没找到时默认返回的字串 ReturnedString : Array 0.256 of Char; /在键名找到时返回的字串 begin AppName := Windows;/节名称 KeyName := device; /键名称 GetProfileString(AppName,KeyName,DefaultString,ReturnedString,Sizeof(ReturnedString); Edit1.Text := ReturnedString;/显示结果 end; 以上测试可打开win.ini进行对照。2004-3-3 12:24:52 打印机的设置 Windows系统默认的打印机信息存放于Win.INI文件中，只有修改了相应的文件内容，再通知Windows系统进行刷新，才算改变了默认的打印机。 下面是程序片断： var strINI : Array 0.MAX_PATH of Char; arrWindows : Array 0.46 of Char; begin GetWindowsDirectory(strINI,SizeOf(strINI); StrCat(strINI,Win.INI); with TINIFile.Create(strINI) do try /更改WIN.INI文件中的默认打印机设置 WriteString(Windows,device,HPLaserJet 4 Plus,HPPCL5MS,LPT1); finally Free; end; StrCopy(arrWindows,Windows); SendMessage(HWND_BROADCAST,WM_WININICHANGE,0,LongInt(arrWindows); /发消息 end; 调用系统的“页面设置”对话框： 首先要在Uses子句中加入CommDlg单元，参见下例： procedure TForm1.Button1Click(Sender : TObject); var s : tagPSD; begin FillChar(s,Sizeof(s),0); s.lStructSize := Sizeof(s); if PageSetupDlg(s) then Showmessage(OK) else Showmessage(Error); end; 调用系统的“添加打印机”对话框： ShellExecute(0,Open,rundll,shell32.dll,SHHelpShortcuts_RunDLL AddPrinter, , SW_SHOWNORMAL);打印测试页： WinExec(rundll32 msprint2.dll,RUNDLL_PrintTestPage,1); 用代码添加打印机： 需要调用API函数的AddPrinter,它有三个参数：打印机名、打印质量、打印机说明。 以下代码把函数封装起来。只需要提供出现在Windows中的打印机名，打印机的接口名（例如：LPT1：），驱动器名和打印程序名（通常是winprint）。代码调用了API函数。 unit unit_AddPrinter; interface function AddAPrinter(PrinterName,PortName,DriverName,PrintProcessor : string) : boolean; implementation uses SysUtil,WinSpool,Windows;function AddAPrinter(PrinterName,PortName,DriverName,PrintProcessor : string) : boolean; var pName : PChar; Level : DWORD; pPrinter : PPrinterInfo2; begin pName := Nil; Level := 2; New(pPrinter); pPrinter.pServerName := nil; pPrinter.pShareName := nil; pPrinter.pComment := nil; pPrinter.pLocation := nil; pPrinter.pDevMode := nil; pPrinter.pSepFile := nil; pPrinter.pDataty