哪位大虾懂得用API函数来控制打印？

Question

我要用针氏打印机，打印连续的通知，通知的大小是自定义的，用Delphi的QuickReport来做，总是有点窜，哪位能够指点我一下？

Answer 1

得到与计算机相连的打印机
Var
  I:Integer;
begin
  Lb_Printers.Items.Clear;
  //得到与计算机相连的打印机
  Lb_Printers.Items[0]:='与计算机相连的打印机';
  For I:=0 To Printer.Printers.Count-1 Do
    Lb_Printers.Items.Add('     '+IntToStr(I)+'.  '+Printer.Printers[I]);得到计算机默认的打印机
Var
  ADevice,ADriver,APort:Array[0..255] Of Char;
  DeviceHandle:THandle;
  PDevMode:PDeviceMode;
begin
  Printer.GetPrinter(ADevice,ADriver,APort,DeviceHandle);
  //如果DeviceHandle为0 ,则强制设置PRINTERINDEX,然后在GETPRINTER
  If DeviceHandle=0 Then
  Begin
    Printer.PrinterIndex:=Printer.PrinterIndex;
    Printer.GetPrinter(ADevice,ADriver,APort,DeviceHandle);
  End;
  //强制执行GETPRINTER后,如果DEVICEHANDLE依然为0的话,系统无可以连接的打印机
  //如果有的话用GLOBALLOCK函数得到指向PDEVICEMODE的结构的POINTER;
  Lb_Printers.Items.Clear;
  If DeviceHandle=0 Then
    Lb_Printers.Items[0]:='系统没有连接的打印机！'
  Else
  Begin    PDevMode:=GlobalLock(DeviceHandle);
    Lb_Printers.Items[0]:='系统默认的打印机信息';
    Lb_Printers.Items[1]:='   1.dmDeviceName: '+String(PDevMode.dmDeviceName);
    Lb_Printers.Items[2]:='   2.dmDriverVersion: '+IntToStr(PDevMode.dmDriverVersion);
    Lb_Printers.Items[3]:='   3.dmSpecVersion: '+IntToStr(PDevMode.dmSpecVersion);
    Lb_Printers.Items[4]:='   4.dmSize: '+IntToStr(PDevMode.dmSize);
    Lb_Printers.Items[5]:='   5.dmDriverExtra: '+IntToStr(PDevMode.dmDriverExtra);
    Lb_Printers.Items[6]:='   6.dmFields: '+IntToStr(PDevMode.dmFields);
    Lb_Printers.Items[7]:='   7.dmPaperSize: '+IntToStr(PDevMode.dmPaperSize);
    Lb_Printers.Items[8]:='   ......';
  End;
  //释放结构
  If Not DeviceHandle=0 Then
    GlobalUnlock(DeviceHandle);动态设置默认打印机属性
Var
  ADevice,ADriver,APort:Array[0..255] Of Char;
  DeviceHandle:THandle;
  PDevMode:PDeviceMode;
begin
  Printer.GetPrinter(ADevice,ADriver,APort,DeviceHandle);
  //如果DeviceHandle为0 ,则强制设置PRINTERINDEX,然后在GETPRINTER
  If DeviceHandle=0 Then
  Begin
    Printer.PrinterIndex:=Printer.PrinterIndex;
    Printer.GetPrinter(ADevice,ADriver,APort,DeviceHandle);
  End;
  //强制执行GETPRINTER后,如果DEVICEHANDLE依然为0的话,系统无可以连接的打印机
  //如果有的话用GLOBALLOCK函数得到指向PDEVICEMODE的结构的POINTER;
  Lb_Printers.Items.Clear;
  If DeviceHandle=0 Then
    Lb_Printers.Items[0]:='系统没有连接的打印机！'
  Else
  Begin    PDevMode:=GlobalLock(DeviceHandle);
    Lb_Printers.Items[0]:='系统默认的打印机信息';
    Lb_Printers.Items[1]:='   1.dmDeviceName: '+String(PDevMode.dmDeviceName);
    Lb_Printers.Items[2]:='   2.dmDriverVersion: '+IntToStr(PDevMode.dmDriverVersion);
    Lb_Printers.Items[3]:='   3.dmSpecVersion: '+IntToStr(PDevMode.dmSpecVersion);
    Lb_Printers.Items[4]:='   4.dmSize: '+IntToStr(PDevMode.dmSize);
    Lb_Printers.Items[5]:='   5.dmDriverExtra: '+IntToStr(PDevMode.dmDriverExtra);
    Lb_Printers.Items[6]:='   6.dmFields: '+IntToStr(PDevMode.dmFields);
    Lb_Printers.Items[7]:='   7.dmPaperSize: '+IntToStr(PDevMode.dmPaperSize);
    Lb_Printers.Items[8]:='   ......';
  End;  Lb_Printers.Items[9]:='';
  Lb_Printers.Items[10]:='';
  Lb_Printers.Items[11]:='';
  Lb_Printers.Items[12]:='动态设置打印';  With PDevMode^ Do
  Begin
    //设置打印份数(10份)
    dmFields:= dmFields Or DM_COPIES;
    dmCopies:=10;
    Lb_Printers.Items[13]:='   1. 打印份数';
    //设置打印方向
    dmFields:= dmFields Or DM_ORIENTATION;
    dmFields:=DMORIENT_PORTRAIT;//Or  dmFields:=DMORIENT_LANDSCAPE;
    Lb_Printers.Items[14]:='   2. 打印方向';    //设置纸张尺寸    dmFields:= dmFields Or DM_PAPERSIZE;
    dmPaperSize:=100;
    Lb_Printers.Items[15]:='   2. 纸张大小';    //设置纸张长度
    dmFields:= dmFields Or DM_PAPERLENGTH;
    dmPaperLength:=100;
    Lb_Printers.Items[16]:='   2. 纸张长度';    //设置纸张宽度
    dmFields:= dmFields Or DM_PAPERWIDTH;
    dmPaperWidth:=100;
    Lb_Printers.Items[17]:='   2. 纸张宽度';    //设置打印比例
    dmFields:= dmFields Or DM_SCALE;
    dmScale:=50;
    Lb_Printers.Items[18]:='   2. 打印比例';    //设置打印质量
    dmFields:= dmFields Or DM_PRINTQUALITY;
    {
    dmPrintQuality:=DMRES_HIGH;    //高分辨率打印
    dmPrintQuality:=DMRES_MEDIUM;  //中分辨率打印
    dmPrintQuality:=DMRES_LOW;     //低分辨率打印
    }
    dmPrintQuality:=DMRES_DRAFT;   //草图质量打印
    Lb_Printers.Items[19]:='   2. 打印质量';    //设置双面打印
    dmFields:= dmFields Or DM_DUPLEX;
    {
    dmDuplex:=DMDUP_SIMPLEX;     //
    dmDuplex:=DMDUP_HORIZONTAL;  //}
    dmDuplex:=DMDUP_VERTICAL;    //    dmDuplex:=DMRES_DRAFT;   //草图质量打印
    Lb_Printers.Items[19]:='   2. 双面打印';  End;  //释放结构
  If Not DeviceHandle=0 Then
    GlobalUnlock(DeviceHandle);

Answer 2

通知的内容如下：
○ ------------------------------------ ○
  |              ×× 单               |
○|------------------------------------|○
  |编 号|XXX     |姓 名|  XX           |
○|------------------------------------|○
  |时 间|2005年6月6日                  |
○|------------------------------------|○类似于上面的单据，每张单据高9.33CM

Answer 3

Var
  ADevice,ADriver,APort:Array[0..255] Of Char;
  DeviceHandle:THandle;
  PDevMode:PDeviceMode;
  I:Integer;
begin
  Printer.GetPrinter(ADevice,ADriver,APort,DeviceHandle);
  //如果DeviceHandle为0 ,则强制设置PRINTERINDEX,然后在GETPRINTER
  If DeviceHandle=0 Then
  Begin
    Printer.PrinterIndex:=Printer.PrinterIndex;
    Printer.GetPrinter(ADevice,ADriver,APort,DeviceHandle);
  End;
  //强制执行GETPRINTER后,如果DEVICEHANDLE依然为0的话,系统无可以连接的打印机
  //如果有的话用GLOBALLOCK函数得到指向PDEVICEMODE的结构的POINTER;
  Lb_Printers.Items.Clear;
  If DeviceHandle=0 Then
    Lb_Printers.Items[0]:='系统没有连接的打印机！'
  Else
    PDevMode:=GlobalLock(DeviceHandle);  IF PDevMode=nil then ShowMessage('error~');
  With PDevMode^ Do
  Begin
    DmFields:= dmFields Or DM_PAPERSIZE;
    DmPaperSize:=0;
     //设置纸张长度
    DmFields:= dmFields Or DM_PAPERLENGTH;
    DmPaperLength:=StrToInt(Edit1.Text);
    //设置纸张宽度
    DmFields:= dmFields Or DM_PAPERWIDTH;
    DmPaperWidth:=StrToInt(Edit2.Text);    dmFields:= dmFields Or DM_COPIES;
    dmCopies:=1;
  End;
  printer.BeginDoc;
  printer.Canvas.Font.Name := '宋体';
  printer.Canvas.Font.Style := [fsBold];
  printer.Canvas.Font.Size := 11;
  printer.Canvas.TextOut(100,0, 'AA');
  Printer.EndDOc;  //释放结构
  If Not DeviceHandle=0 Then
    GlobalUnlock(DeviceHandle);
你要再给100分了.
嘿咻嘿咻

Answer 4

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)却不在之列，要想使打印机正常工作和程序不出错，你还是老老实实手工给它加上吧。(湖北杨德军)

Answer 5

dmFields:= dmFields Or DM_PAPERLENGTH;
    dmPaperLength:=100;
    Lb_Printers.Items[16]:='   2. 纸张长度';    //设置纸张宽度
    dmFields:= dmFields Or DM_PAPERWIDTH;
    dmPaperWidth:=100;
    Lb_Printers.Items[17]:='   2. 纸张宽度';    
    循环 打印 
    printer.newpage;
    printer.textout ~~~~
    结束循环     完了