想用delphi实现调用打印机用zpl指令打印，遇上了问题

Asuka5279

想用delphi实现调用打印机用zpl指令打印，参考了网上的。遇上了问题，打印没有反应，打印机查看正在打印的列表里能看见文件存在了一瞬间，然后就没反应了。但是当我把  pDatatype   := 'RAW';改成  pDatatype   := 'Text';就可以成功打印，但是只能把zpl指令当作文本输出。求大佬指教！

1. procedure WriteRawStringToPrinter(PrinterName, S: string);
   
2. var
   
3.   Handle: THandle;
   
4.   N: DWord;
   
5.   DocInfo1: TDocInfo1;
   
6. begin
   
7.   if not OpenPrinter(PChar(PrinterName), Handle, nil) then
   
8.    raise Exception.Create('打开打印机失败！');
   
9.   with DocInfo1 do
   
10.   begin
    
11.     pDocName    := PChar('Test Doc');
    
12.     pOutputFile := nil;
    
13.     pDatatype   := 'RAW';
    
14.   end;
    
15. 
    
16.   StartDocPrinter(Handle, 1, @DocInfo1);
    
17.   StartPagePrinter(Handle);
    
18.   WritePrinter(Handle, PChar(S), Length(S), N);
    
19.   EndPagePrinter(Handle);
    
20.   EndDocPrinter(Handle);
    
21.   ClosePrinter(Handle);
    
22. end;
    
23. 
    
24. 
    
25. 
    
26. 
    
27. procedure TForm1.Button1Click(Sender: TObject);
    
28. var
    
29.   ZPL: string;
    
30.   sList: TStringList;
    
31. begin
    
32.   sList := TStringList.Create;
    
33.   try
    
34.     sList.Clear;
    
35.     sList.LoadFromFile('E:\print.txt');
    
36.     showmessage(sList.Text);
    
37.     ZPL := sList.Text;
    
38.     WriteRawStringToPrinter(comboBox1.Text, ZPL);    //’打印机名’
    
39.   finally
    
40.     sList.Free;
    
41.   end;
    
42. end;
    

复制代码

ba21

是不是驱动不对。
https://www.cnblogs.com/chengeng/p/6133764.html

Asuka5279

ba21 发表于 2022-2-23 16:18
是不是驱动不对。
https://www.cnblogs.com/chengeng/p/6133764.html

驱动应该没问题，我打印其他的都可以，用别的打印软件也可以。谢谢awa