Delphi调用驱动打印

前言

我们做打印小票的时候除了直接对端口发送指令的方式，还有就是调用打印机驱动打印的方式，在Delphi中想要用驱动打印的方式就可以用到TPrinter类

TPrinter类介绍

TPrinter类中封装了Windows打印机的接口。  
类关系   TObject  
　　使用TPrinter对象可以执行应用程序中的任何打印操作。可以在Printers单元中通过调用Printer函数来获得一个TPrinter   对象。为了决定如何显示窗体的打印图像，可以使用Tform组件的PrintScale属性。   
　　在一个文本变量或一个打印机画布准备好后就可以进行打印工作了。打印工作一直进行到调用EndDoe过程。显示在PrintManager（或网络头页）上的题目由Title   属性决定。如果想开始打印工作可以调用BeginDoc方法。结束一个成功打印的工作需要调用EndDoc过程。如果出现问题需要中断打印可以调用Abort方法。   

属性列表   
Aborted   中断打印  

指示当前是否用户中断了打印，从而调用方法   
__property   bool   Aborted   ={read   =   FAborted,nodefalt}   ;   
如果属性Aborted为真，则表示打印工作已经中断。如果为假值，则表示用户并没有中断打印进程。  

---

Canvas   当前打印页的表面  

表示当前打印页的表面。   
__property   Graphics   :   :   TCanvas   *   Canvas   =   {   read   =   GetCanvas   }   ;   
属性Canvas表示一页的打印表面。使用Canvas对象的Brush，Font   和Pen   属性可以决定如何绘制和显示页。一些打印机不支持图像，因此，对这些打印机调用Draw,StretchDraw或CopyRect方法将会失败。

---

Capabilities   指示一个打印设备驱动器的当前设置  

指示一个打印设备驱动器的当前设置。   
__property   TPrinterCajpabilities   Caoabukutues   ={read   =   FCapabities   ,   nodefault}   ;   
属性Capabilities   包含了打印机有兼容性，它指定了打印的方向，页数和是否校对。 

---

Copies   指定打印的份数

 指定打印的份数。   
__property   int   Copies   =   {read   =   GetNumCopies,   write   =SetNumCopies,   nodefault   }   ;   
属性Copies中指定打印的份数。  

---

Fonts   列出当前打印机支持的字体  

列出当前打印机支持的字体。   
__property   Classes   ；；TStrings   *   Fonts   =   {   read   =GetFonts   }   ;   
使用Fonts属性可以获得当前打印机支持的字体列表。列表中总是包含有TrueType字体，即使打印机中不包含这种字体，因为Windows   Graphies   Device   Interface(GDI)在打印机使用时可以准确地绘制这种字体。  

---

Handle   提供访问打印机对象句柄的能力  

提供访问打印机对象句柄的能力。   
__property   HdC   Handle   =   {   read   =GetHandle   ,   node   fault   };   
使用Handle   属性可以获得对打印机对象句柄有访问。 

---

Orientation   决定打印工作在页上的方向  

决定打印工作在页上的方向，垂直或水平。   
__property   TpinterOrientation   Orientation   =   {   read   =   GetPrientatiion,   write   =   SetOrienatiion   ,nodefault   }   
使用Orientation   属性可以决定打印机打印的方向。Onienation属性值只能是TPrinterOrientation   类型。下表中列出了属性可能值：   
TPrinter::PageHeight   
指示当前打印页的像素高度。   
__property   int   PageHeight   =   {read   =   GetPageHeight   ,nodefault   }   ;   
在属性PageHeight中可以找到当前打印页的像素高度。

---

PageHeight   指示当前打印页的像素高度  

指示当前打印页的像素高度。   

---

pateNurnber   指示当前打印页  

指示当前打印页。   
__property   int   PageNumber   =   {   read   =   FPageNumber   ,   nodefault   }   ;   
在属性PageNumber中可以获得当前打印的页码。在调用NewPage方法后属性PageNumber将加1。当页结束处输入回车并写入文本变量时，属性PageNumber也将加1   。  

---

PageWidth   指示当前打印页的像素宽度  

指示当前打印页的像素宽度。   
__property   int   PageWidth   =   {read   =   GetPageWidth   ,   modefault   }   ;   在属性PsheWifyh中可以找到当前打印页的像素宽度。

---

Printerlndex   在Printers属性中列出的是当前打印机  

指定在Printers属性中列出的打印机是当前打印机。   
__property   int   Printerlndex   =   {   read   =GetPrinterlndex   ,   write   =   SetPrinterlndex   ,nodefault   }   ;   
属性Printerlndex指定当前打印机。如果改变了本属性值将自动调用EndDoc方法。如果想选择缺省的打印机，可以将属性Printerlndex   设置为   —   1   。在   Printers   属性中列出了安装的打印机。当前打印机支持的字体列表在Fonts属性中。  

---

Printers   列出所有在Windows中安装的打印机 

列出所有在Windows中安装的打印机。   
__property   Classes   :   :   TStrings   *   Printers   =   {read   =GePrinters   }   ;   在Printers属性中列出了所有在Windows   中安装的打印机。属性Printerlndex   指定了当前选择的打印机。当前打印机支持的字体列表在Fonts属性中。  

---

Printing  指示打印工作正在进行  

指示打印工作正在进行。   
__property   bool   Printing   =   {read   =   FPrinting   ,   nodefault   }   ;   
使用Printing属性可以决定是否正在进行一项打印工作。如果应用程序中调用了BeginDoc方法并在调用EndDoc方法（或Abort方法）之前将把Printing属性设置为真值。  

---

Title   显示在Ptint   Manager中主网络头页中的文本  

决定显示在Print   Manager中和网络头页中的文本。   
__property   Systen   :   :   AndiString   Title   =   {   read   =   FTitle   ,   wrete   =   FTitle   }   ;   
属性Title在Print   Manager由Windows使用，也作为网络的头页。

---

方法列表   
～TPrinter   删除一个打印机实例   
__fastcall   virtual   ～TPrinter   (   void   )   ;   
一般不直接调用～TPrinter方法。打印机对象将自动创建和删除。当调用～TPrinter方法时，它将检查是否打印工作都已经结束。如果都结束了就释放资源。例如句柄、字体和画布等，最后关闭打印机并调用继承的析构函数。

---

Abort   中断打印

void   __fastcall   Abort(void);   
中断打印，放弃未打印数据。   
使用Abort方法可以在打印工作完成前中断打印，否则将使用EndDoc方法。调用Abort方法后设备将设置为下一个打印工作。

---

BeginDoc   送一个打印工作到打印机中   

_void   __fastcall   BeginDoc(void);   
送一个打印工作到打印机中。   
调用BeginDoc可以初始化一个打印工作。如果打印工作被成功送入，应用程序将调用EndDoc方法结束打印。打印工作只有在调用EndDoc方法后才实际开始。

---

EndDoc   结束当前打印工作并关闭文本文件变量  

void   __fastcall   EndDoc(void);   
结束当前打印工作并关闭文件变量。   
调用EndDoc方法将结束打印工作（并关闭当前打开的文体）。打印工作将在EndDoc方法调用结束后开始。在应用程序中调用EndDoc方法后，打印机开始打印。将一个打印工作成功送入打印机后调用EndDoc方法。如果打印工作没成功，则调用Abort方法。

---

GrtPrinter   取回当前打印机  

void   __fastcall   GetPrinter(char*   ADevice,char*   ADriver,char*   APort,int&   ADeviceMode);   
取回当前打印机。   
不需要直接调用GetPrinter方法。可以通过访问Printers属性数组中的打印机来获得。如果想了解更多的信息，可以参见Win32Developer 's   Reference(WIN32::HLP)中的CreateDC函数。

---

NewPage   开始一个新页  

void   __fastcall   NewPage(void);   
开始一个新页，并将PageNumber属性值加1。   
使用NewPage方法将强制在打印机的新页上继续打印工作。   
NewPage方法将把PageNumber属性值加1。同时将把Canvas对象的Pen属性设置成（0，0）。

---

SetPrinter   指定一个打印机作为当前打印机 

void   __fastcall   SetPrinter(char*   ADevice,char*   ADriver,char*   APort,int   ADeviceMode);   
指定一个打印机作为当前打印机。   
不直接调用SetPrinter方法。可以通过访问Printers属性数组中的打印机来设置。如果想了解更多的信息，可以参见Win32Developer 's   Reference(WIN32.HLP)中的CreateDC函数。

---

TPrinter   创建一个打印机  
__fastcall   TPrinter(void);   
　　创建一个打印机。   
　　不能直接调用TPrinter方法。TPrinter方法将由Printer函数自动调用。方法为打印机分配内存，并调用继承的构造方法。然后设置正确的驱动器、设备和端口.
TPrinter:

---

代码演示

//你必须先得到打印机的实际尺寸： 
var 
    pointx,pointy:integer; 
    pointx:=getdevicecaps(printer.handle,logpixelsx); 
    pointy:=getdevicecaps(printer.handle,logpixelsy); 
    printer.canvas.TextOut(X*pointx,Y*pointy,Text);

//注意Printer要添加Printers引用 

if printdialog1.Execute then 

begin 

   Printer.BeginDoc; 

   Printer.Title := 'memo内容'; 

   Printer.Canvas.TextOut(100,100,'打印内容'); 

   Printer.EndDoc; 

end;

//打印字符串函数

Procedure PosPrintStr(SizeType,ColorType:integer; str:string);

var ls:TStrings;

begin

  //打印测试参数 小票输出到文件 XSysPrint.Log

  if PosCfg.blPrnText then 

  begin

    WritePrintTxt(str);

    {ls := TStringList.Create;

    ls.Clear;

    try

      ls.Add(str);

      TEXT_PrintString(PosCfg.sPrinterPort,0,0,ls);

    finally

      ls.Free;

    end;

    DelayMSec(PosCfg.nPrnDelay);}

    exit;

  end;

  if PosCfg.sPrinterType='TM300K' then

  begin

       TM300K_PrintStr(sPrinterPortID,SizeType,ColorType,str);

       DelayMSec(PosCfg.nPrnDelay); //打印延时

  end

  else if PosCfg.sPrinterType='TM200D' then

  begin

       TM200D_PrintStr(sPrinterPortID,SizeType,ColorType,str);

       DelayMSec(PosCfg.nPrnDelay); //打印延时

  end

  else if PosCfg.sPrinterType='TEC200D' then

  begin

       LPTDOT_PrintStr(sPrinterPortID,1,str);   //并口打印

       DelayMSec(PosCfg.nPrnDelay); //打印延时

  end

  else if PosCfg.sPrinterType='TM210D' then

  begin

       TM210D_PrintString(sPrinterPortID,SizeType,ColorType,str);//通用并口打印

       DelayMSec(PosCfg.nPrnDelay); //打印延时

  end

  else if PosCfg.sPrinterType='TEXTFILE' then   //通用文本打印

  begin

       TEXT_PrintString(PosCfg.sPrinterPort,SizeType,ColorType,str);

       DelayMSec(PosCfg.nPrnDelay); //打印延时

  end

  else if PosCfg.sPrinterType='OTHER' then

  begin

       Other_PrintString(sPrinterPortID,SizeType,ColorType,str);

       DelayMSec(PosCfg.nPrnDelay); //打印延时

  end

  else  begin

       TM200D_PrintStr(sPrinterPortID,SizeType,ColorType,str);

       DelayMSec(PosCfg.nPrnDelay); //打印延时

  end;

end;

//模拟打印测试文本

procedure WritePrintTxt(sMessage: String);

const PRINT_FILE='XSysPrint.Log'; 

var 

    fname, fname0: String;

 fp: TextFile;

begin

  // 创建日志文件

  fname:=DirConcat(UGetAppPath,PRINT_FILE);

  if not FileExists(fname) then

  begin

   AssignFile(fp,fname);

      Rewrite(fp);

      Writeln(fp,'模拟打印');

      Flush(fp);

      CloseFile(fp);

  end;

  // 记录日志信息

  AssignFile(fp,fname);

  try

    Append(fp);

    Writeln(fp,sMessage);

    Flush(fp);

  finally

    CloseFile(fp);

  end;

end;

 

---

-END-

长按下方二维码关注微卡智享