在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，以准备打印机驱动程序接收内容。