Zebra EPL打印命令在Delphi 7中无法正常打印的问题求助

针对你在Delphi 7中发送EPL指令到Zebra打印机失败的问题，结合cmd和Zebra工具能正常工作的情况，核心问题通常出在路径处理、数据编码/格式、打印作业类型、权限这几个方面，以下是具体排查和解决步骤：

1. 共享打印机路径的转义错误 #

cmd中使用的路径"\desktop-AB123\ZDesigner ZD230-203dpi ZPL"在Delphi中需要修正：

• Delphi字符串中的\是转义字符，共享打印机的UNC路径必须用双反斜杠开头，正确写法应为：

  const PrinterUNC = '\\desktop-AB123\ZDesigner ZD230-203dpi ZPL';
  

• 如果是通过ShellExecute调用cmd，路径需要再次转义（因为cmd本身也会解析转义符），参数应写成：

  ShellExecute(0, nil, 'cmd.exe', PChar('/c type "C:\test.txt" > "\\\\desktop-AB123\\ZDesigner ZD230-203dpi ZPL"'), nil, SW_HIDE);
  

2. 未指定RAW打印类型（绕过驱动处理） #

Zebra打印机的EPL指令属于原始打印数据，必须绕过Windows打印机驱动的解析，直接发送给打印机。如果用API发送时未指定RAW数据类型，驱动会尝试将数据解析为普通文档，导致指令失效：

• 正确的API调用示例（直接发送原始字节流）：

  procedure SendRawEPLToPrinter(const PrinterName: string; const EPLData: TBytes);
  var
    hPrinter: THandle;
    DocInfo: TDocInfoA;
    BytesWritten: DWORD;
  begin
    if not OpenPrinter(PChar(PrinterName), hPrinter, nil) then Exit;
    try
      ZeroMemory(@DocInfo, SizeOf(DocInfo));
      DocInfo.cbSize := SizeOf(DocInfo);
      DocInfo.pDocName := 'EPL Print Job';
      DocInfo.pDatatype := 'RAW'; // 关键：指定RAW类型，禁止驱动解析
      
      if StartDocPrinter(hPrinter, 1, @DocInfo) = 0 then Exit;
      try
        if StartPagePrinter(hPrinter) then
        begin
          WritePrinter(hPrinter, @EPLData[0], Length(EPLData), BytesWritten);
          EndPagePrinter(hPrinter);
        end;
      finally
        EndDocPrinter(hPrinter);
      end;
    finally
      ClosePrinter(hPrinter);
    end;
  end;
  
  // 使用方式：读取EPL文件的原始字节发送
  var
    Stream: TFileStream;
    EPLBytes: TBytes;
  begin
    Stream := TFileStream.Create('test.txt', fmOpenRead or fmShareDenyNone);
    try
      SetLength(EPLBytes, Stream.Size);
      Stream.ReadBuffer(EPLBytes[0], Stream.Size);
      // 确保EPL指令以ASCII 26（^Z）结尾，部分打印机需要此结束符
      if (Length(EPLBytes) = 0) or (EPLBytes[High(EPLBytes)] <> 26) then
      begin
        SetLength(EPLBytes, Length(EPLBytes) + 1);
        EPLBytes[High(EPLBytes)] := 26;
      end;
      SendRawEPLToPrinter('\\desktop-AB123\ZDesigner ZD230-203dpi ZPL', EPLBytes);
    finally
      Stream.Free;
    end;
  end;
  

3. AssignPrn的文本模式破坏EPL指令 #

Delphi的AssignPrn默认使用文本模式，会自动转换换行符（将LF转为CRLF），这会破坏EPL指令的二进制结构：

• 必须以二进制模式打开打印文件：

  var
    PrintFile: TextFile;
    EPLBytes: TBytes;
    Stream: TFileStream;
  begin
    AssignPrn(PrintFile, '\\desktop-AB123\ZDesigner ZD230-203dpi ZPL');
    Rewrite(PrintFile, 1); // 第二个参数为1表示二进制模式
    try
      // 读取EPL原始字节后，用BlockWrite写入
      Stream := TFileStream.Create('test.txt', fmOpenRead);
      try
        SetLength(EPLBytes, Stream.Size);
        Stream.ReadBuffer(EPLBytes[0], Stream.Size);
        BlockWrite(PrintFile, EPLBytes[0], Length(EPLBytes));
      finally
        Stream.Free;
      end;
    finally
      CloseFile(PrintFile);
    end;
  end;
  

4. 权限与打印池问题 #

• 如果打印任务进入打印池但不执行，先检查打印机是否处于“暂停”状态，或打印队列是否有异常任务阻塞。
• 测试以管理员身份运行Delphi程序，如果能正常打印，说明是UAC权限限制导致无法访问网络共享打印机。可以给程序添加管理员权限的manifest文件，或确保当前用户有共享打印机的访问权限。

5. EPL指令的结束符缺失 #

部分Zebra打印机要求EPL指令必须以**ASCII 26（^Z）**作为结束标记，否则会认为指令不完整，留在打印池中不执行。在发送前务必检查并添加该字符（如上述API示例中的代码）。

内容的提问来源于stack exchange，提问作者Matheus Vieira