delphi自助打印源码

‘壹’ 如何在delphi中实现打印功能

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 获取打印机信息 否 是 是

‘贰’ delphi 中怎样做页面打印功能。像我们打开某个网页一样，直接点击打印就可以打印整个页面啦！

DELPHI是一个开发工具，所有的打印都需要写脚本实现。打印的插件有FASTREPORT和QUICKREPORT或者REPORTBUILDER。

‘叁’ Delphi 中Printer打印相关的例子

以下代码输出以标签的字体打印输出一行文字：

printer.canvas.font.assign(label1.font);
printer.canvas.font.pixelsperinch:=getdevicecaps(printer.canvas.handle,LOGPIXELSY);
printer.begindoc;
printer.canvas.textout(0,0,label.caption);
printer.enddoc;

‘肆’ DELPHI中怎么实现数据的批量打印

DELPHI你这个好像不太熟悉，不知道是什么软件，你要是想实现数据批量打印的话，可以使用专业的可变数据批量打印软件。在电脑上安装之后，可以用软件设计制作，然后批量生成，生成后，就可以连接打印机实现数据的批量打印了

标签上各项内容使用数据库导入的方式添加，只需要添加一次，后面的标签内容就可以按照数据库的顺序自动生成了，这个在预览的时候可以翻页查看生成效果。

‘伍’ 如何将Delphi 编写的程序转换成源码，详细点

朋友，想实现这些功能，任何一种通用语言都可以办到。甚至使用具有宏编程功能的一些办公软件也可以。

我建议你使用Delphi或VB。其开发工具可以使任何初学者都快速上手。并且在显示上可以优雅地实现。

另外，单就此软件而言，恐怕将不可避免地使用数据库。作为个人使用，可采用最简单的Access桌面数据库。

我想你的设计意图大概是，针对历史数据进行分析和汇总，并给出最接近中奖的一组数字。所以，除掌握开发语言外，你还必须对用于操作数据库的SQL语言有一定了解。

总结：学习Delphi，Access，SQL。此三种工具在书店有大量相关书籍可供购入。最好找以“Delphi数据库编程”为核心的书。其中将会提供翔实的例程。1.编程语言和操作系统：Visual c++ (vc) visual baseic vb visual foxpro delphi c++ builder powerbuider;vc.net vb.net;Asp.net java；Windows32 win95,win98,win2000,windows me,windows2000,windowsxp,windowNT/winnt; linux,PDA/windowsCE/smartphone手机/arm/ppc2000/ppc2002; pocket pc2002, ce.net;掌上电脑，嵌入式设备，移动设备；

2.控件及平台：二维绘图控件、2d/3D图形控件、三维图形控件、矢量图形控件、矢量绘图控件、图形中间件、图形插件、图形浏览控件,CAD插件、CAD控件、矢量控件、GIS控件、GIS图形控件,GIS插件,图形软件开发源码,测绘控件,视频CAD，图形算法库、几何算法库、winCE图形控件 PDA图形控件,源码、免费下载、软件试用、编程资源、矢量图形软件开发,算法源码，c++源码,SmartPhone,CAD软件开发,GIS软件开发，Linux图形平台，CAD自主平台,CAD开发平台，GIS开发平台，图形软件开发引擎,IE图形控件,几何算法控件；

3.文件格式解析、文件格式转换、图形文件浏览、BMP、GIF、ICO、TGA、PCX、WBMP、WMF、EMF,JPEG、PNG、MNG、TIFF、JBIG、PNM,PPM,PGM、RAS，DXF ,DWF(4.0-6.0)、DWG(2.5-2005) 、IGS, MIF,PLT,PRN,HPGL/HPGL2、DGN(8.0), SHP, IGSAT, PS/IGES, PS/STEP, PS/VDA-FS, PS/PRO ENGINEER, PS/ACIS, PS/BOBY SHOP，QCD，SHX字体、TTF字体、SHP字体，LIN,GBR，pat，AutoCAD字体线型，mdf，dwg浏览，SVG格式；dwg2005,dwgr14,autocad2005,r14,r15,r18,2006,,GERBER RS-274X

4.资源下载：SHX字体下载，TTF字体，SHP字体，图库下载，建筑图库，电气图库，园林图库下载，dwf2dxf.exe，dwg2dxf.exe，hpgl2cad.exe，askern.dll,asocx.ocx,depend.exe,winrar.exe,winzip.exe,zip,rar,mfc42.dll

5.算法总汇：求交算法，相切，裁减，直线、圆、弧、椭圆、样条曲线、函数曲线、曲面、三维消隐、面积算法、长度计算、体积计算；点云，不规则体、三角形、找最小区域、查找最大区域、路径查找、相量、向量、矢量、单位向量、矩阵、矩阵变换，交点、切点、圆心等、解析几何、线性代数,贝赛尔曲线算法；坐标变换；

6. 图形技术汇总：Unigraphics,pro/engineer,i-deas,pkpm,3ds,3dmax,mastercam9.0,dwfsdk toolkit,PRO/E,SOLiDWORKS,AUTOCAD,Intellicad，VisualCASE,SolidEdge,UG,caxa,MDA,catia,powercad，opengl，heidi，acis，ug，microstation，opendwg，opendgn，Freetype，OpenSceneGraph，brlcad，mapinfo，arcinfo，hoops，zlib，solidedge，mdt，gdi++,directX,directdraw,directshow,计算机图形学，OdDbDatabasePtr，DWGdirect使用；

7. PDM/MRPII/ERP/OA等行业：图形文件浏览、图档管理、审图、批注图纸、权限管理、web图档管理、xml/rml批注文件 兼容Volo View Express和AutoCAD格式；数字签名等；redline,rml红线批注文件,产品数据管理,电子图纸管理

‘陆’ 高分请教，在DELPHI怎么向打印机发送控制码指令

在delphi中设置打印机属性方法如下：一、使用打印机设置对话框：PrinterSetupDialog1.Execute;二、使用代码进行设置：以下代码来源于网络：procere setprint(pagesize:tpagesize;width,height:variant;Orientation:tprinterOrientation);var Device: array[0..255] of char; Driver: array[0..255] of char; Port: array[0..255] of char; hDMode: THandle; PDMode: PDEVMODE;begin//设置打印机 try Printer.PrinterIndex := Printer.PrinterIndex; Printer.GetPrinter(Device, Driver, Port, hDMode); if hDMode 0 then begin pDMode := GlobalLock(hDMode); if pDMode nil then begin if pagesize=Custom then begin //设定自定义纸张 pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize or DM_PAPERWIDTH or DM_PAPERLENGTH; pDMode^.dmPaperSize := 0; pDMode^.DMPAPERWIDTH:= width*10 ; pDMode^.DMPAPERLENGTH:=height*10; end else begin //设定纸张类型 pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE ; if pagesize=A3 then pDMode^.dmPaperSize := DMPAPER_A3; if pagesize=A4 then pDMode^.dmPaperSize := DMPAPER_A4; if pagesize=A5 then pDMode^.dmPaperSize := DMPAPER_A5; if pagesize=B4 then pDMode^.dmPaperSize := DMPAPER_B4; if pagesize=B5 then pDMode^.dmPaperSize := DMPAPER_B5; if pagesize=CSheet then pDMode^.dmPaperSize := DMPAPER_CSheet; if pagesize=Executive then pDMode^.dmPaperSize := DMPAPER_Executive; if pagesize=Letter then pDMode^.dmPaperSize:= DMPAPER_Letter; end; printer.Orientation:=Orientation; GlobalUnlock(hDMode); end; end ; Printer.PrinterIndex := Printer.PrinterIndex; except showmessage('没有默认选择打印机，或默认打印机不可使！'); exit; end; end;