如何使用Delphi正确地将CODE128条码打印到POS热敏打印机？

Question

我试图使用此代码直接将Code128条形码直接打印到POS打印机：

DirectToPrinter(chr(29)+chr(107)+chr(72)+Chr(123)+Chr(65)+'8600123456789', true);

根据文档： https://reference.epson-biz.com/modules/ref_escpos/index.php?content_id=128 ，我包括{（123）和代码A（65）的字符，但我想知道为什么我只得到数字打印出来，但没有行。

有什么想法吗？

顺便说一句，我正在使用Epson TM88V POS热打印机。

nction tform1.DirectToPrinter(S: AnsiString; NextLine: Boolean): Boolean;
var
  Buff: TPrnBuffRec;
  TestInt: Integer;
  i: integer;
   Device: PChar;
  Driver: PChar;
  Port: PChar;
begin
  TestInt := PassThrough;
  if Escape(Printer.Handle, QUERYESCSUPPORT, SizeOf(TESTINT), @testint, nil) > 0 then
  begin
    if NextLine then  S := S + #13 + #10;
    StrPCopy(Buff.Buff_1, S);
    Buff.bufflength := StrLen(Buff.Buff_1);
    Escape(Printer.Canvas.Handle, Passthrough, 0, @buff, nil);
    Result := True;
  end
  else
    Result := False;
end;

Answer 1

通过添加字符Chr（13）并将Chr（72）替换为Chr（73），可以解决此问题（对TOM的荣誉），如下所示：

DirectToPrinter( chr(29)+chr(107)+chr(73)+chr(13)+chr(123)+Chr(65)+'8600123456789', true );