Delphi中怎么調(diào)用驅動打印

Delphi中怎么調(diào)用驅動打印，相信很多沒有經(jīng)驗的人對此束手無策，為此本文總結了問題出現(xiàn)的原因和解決方法，通過這篇文章希望你能解決這個問題。

TPrinter類介紹

TPrinter類中封裝了Windows打印機的接口。  
類關系   TObject  
　　使用TPrinter對象可以執(zhí)行應用程序中的任何打印操作?？梢栽赑rinters單元中通過調(diào)用Printer函數(shù)來獲得一個TPrinter   對象。為了決定如何顯示窗體的打印圖像，可以使用Tform組件的PrintScale屬性。   
　　在一個文本變量或一個打印機畫布準備好后就可以進行打印工作了。打印工作一直進行到調(diào)用EndDoe過程。顯示在PrintManager（或網(wǎng)絡頭頁）上的題目由Title   屬性決定。如果想開始打印工作可以調(diào)用BeginDoc方法。結束一個成功打印的工作需要調(diào)用EndDoc過程。如果出現(xiàn)問題需要中斷打印可以調(diào)用Abort方法。   

屬性列表   
Aborted   中斷打印  

指示當前是否用戶中斷了打印，從而調(diào)用方法   
__property   bool   Aborted   ={read   =   FAborted,nodefalt}   ;   
如果屬性Aborted為真，則表示打印工作已經(jīng)中斷。如果為假值，則表示用戶并沒有中斷打印進程。  

Canvas   當前打印頁的表面  

表示當前打印頁的表面。   
__property   Graphics   :   :   TCanvas   *   Canvas   =   {   read   =   GetCanvas   }   ;   
屬性Canvas表示一頁的打印表面。使用Canvas對象的Brush，F(xiàn)ont   和Pen   屬性可以決定如何繪制和顯示頁。一些打印機不支持圖像，因此，對這些打印機調(diào)用Draw,StretchDraw或CopyRect方法將會失敗。

Capabilities   指示一個打印設備驅動器的當前設置  

指示一個打印設備驅動器的當前設置。   
__property   TPrinterCajpabilities   Caoabukutues   ={read   =   FCapabities   ,   nodefault}   ;   
屬性Capabilities   包含了打印機有兼容性，它指定了打印的方向，頁數(shù)和是否校對。 

Copies   指定打印的份數(shù)

 指定打印的份數(shù)。   
__property   int   Copies   =   {read   =   GetNumCopies,   write   =SetNumCopies,   nodefault   }   ;   
屬性Copies中指定打印的份數(shù)。  

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中可以獲得當前打印的頁碼。在調(diào)用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指定當前打印機。如果改變了本屬性值將自動調(diào)用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屬性可以決定是否正在進行一項打印工作。如果應用程序中調(diào)用了BeginDoc方法并在調(diào)用EndDoc方法（或Abort方法）之前將把Printing屬性設置為真值。  

Title   顯示在Ptint   Manager中主網(wǎng)絡頭頁中的文本  

決定顯示在Print   Manager中和網(wǎng)絡頭頁中的文本。   
__property   Systen   :   :   AndiString   Title   =   {   read   =   FTitle   ,   wrete   =   FTitle   }   ;   
屬性Title在Print   Manager由Windows使用，也作為網(wǎng)絡的頭頁。

方法列表   
～TPrinter   刪除一個打印機實例   
__fastcall   virtual   ～TPrinter   (   void   )   ;   
一般不直接調(diào)用～TPrinter方法。打印機對象將自動創(chuàng)建和刪除。當調(diào)用～TPrinter方法時，它將檢查是否打印工作都已經(jīng)結束。如果都結束了就釋放資源。例如句柄、字體和畫布等，最后關閉打印機并調(diào)用繼承的析構函數(shù)。

Abort   中斷打印

void   __fastcall   Abort(void);   
中斷打印，放棄未打印數(shù)據(jù)。   
使用Abort方法可以在打印工作完成前中斷打印，否則將使用EndDoc方法。調(diào)用Abort方法后設備將設置為下一個打印工作。

BeginDoc   送一個打印工作到打印機中   

_void   __fastcall   BeginDoc(void);   
送一個打印工作到打印機中。   
調(diào)用BeginDoc可以初始化一個打印工作。如果打印工作被成功送入，應用程序將調(diào)用EndDoc方法結束打印。打印工作只有在調(diào)用EndDoc方法后才實際開始。

EndDoc   結束當前打印工作并關閉文本文件變量  

void   __fastcall   EndDoc(void);   
結束當前打印工作并關閉文件變量。   
調(diào)用EndDoc方法將結束打印工作（并關閉當前打開的文體）。打印工作將在EndDoc方法調(diào)用結束后開始。在應用程序中調(diào)用EndDoc方法后，打印機開始打印。將一個打印工作成功送入打印機后調(diào)用EndDoc方法。如果打印工作沒成功，則調(diào)用Abort方法。

GrtPrinter   取回當前打印機  

void   __fastcall   GetPrinter(char*   ADevice,char*   ADriver,char*   APort,int&   ADeviceMode);   
取回當前打印機。   
不需要直接調(diào)用GetPrinter方法。可以通過訪問Printers屬性數(shù)組中的打印機來獲得。如果想了解更多的信息，可以參見Win32Developer 's   Reference(WIN32::HLP)中的CreateDC函數(shù)。

NewPage   開始一個新頁  

void   __fastcall   NewPage(void);   
開始一個新頁，并將PageNumber屬性值加1。   
使用NewPage方法將強制在打印機的新頁上繼續(xù)打印工作。   
NewPage方法將把PageNumber屬性值加1。同時將把Canvas對象的Pen屬性設置成（0，0）。

SetPrinter   指定一個打印機作為當前打印機 

void   __fastcall   SetPrinter(char*   ADevice,char*   ADriver,char*   APort,int   ADeviceMode);   
指定一個打印機作為當前打印機。   
不直接調(diào)用SetPrinter方法。可以通過訪問Printers屬性數(shù)組中的打印機來設置。如果想了解更多的信息，可以參見Win32Developer 's   Reference(WIN32.HLP)中的CreateDC函數(shù)。

TPrinter   創(chuàng)建一個打印機  
__fastcall   TPrinter(void);   
　　創(chuàng)建一個打印機。   
　　不能直接調(diào)用TPrinter方法。TPrinter方法將由Printer函數(shù)自動調(diào)用。方法為打印機分配內(nèi)存，并調(diào)用繼承的構造方法。然后設置正確的驅動器、設備和端口.
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內(nèi)容'; 

   Printer.Canvas.TextOut(100,100,'打印內(nèi)容'); 

   Printer.EndDoc; 

end;

//打印字符串函數(shù)

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

var ls:TStrings;

begin

  //打印測試參數(shù) 小票輸出到文件 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

  // 創(chuàng)建日志文件

  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;

看完上述內(nèi)容，你們掌握Delphi中怎么調(diào)用驅動打印的方法了嗎？如果還想學到更多技能或想了解更多相關內(nèi)容，歡迎關注億速云行業(yè)資訊頻道，感謝各位的閱讀！