在Delphi中發送數據到USB打印機

Question

如何使用Delphi將文本命令發送到連接在USB端口中的打印機？

我有一臺Zebra TLP2844打印機，並希望通過它編程一個直接通信。

Answer 1

使用WinAPI函數Escape，將Printer.Canvas.Handle作爲第一個參數，將PASSTHROUGH作爲nEscape參數傳遞給它。

var 
    YourCommand: String; 
begin 
    YourComamnd := 'Your command here'; 

    if Escape(Printer.Canvas.Handle, 
       PASSTHROUGH, 
       Length(YourCommand), 
       PChar(YourCommand), 
       nil) <> 0 then 
    // Handle return value (listed in docs link above) 
    else 
    // send next command 

Escape在Windows單元定義。請注意，在使用此功能之前，您必須先撥打Printer.StartPage，以準備打印機驅動程序接收內容。