给你一段我写过的代码供你参考一下:
一、如果是并口连接打印机,直接这样写就 OK 了,至于 ZPL II 语言,你可从网上下载,
语法还是相当简单的!
procedure TForm1.Button8Click(Sender: TObject);
var
lpt:textfile;
begin
assignFile(lpt,'LPT1');
rewrite(lpt);
write(lpt,'^XA^FO10,10^BCN,100^FD12345^FS^XZ');
CloseFile(lpt);
end;
二、如果是 USB 口连接打印机的话有两种方法,一是在 CMD 窗口下执行以下命令
NET USE LPT1 \计算机名\共享斑马打印机名称 PERSISTENT:YES
将 USB 虚拟成 LPT1,这样用以上程序也可以使用
三、要使用斑马打印机 WINDOWS 驱动来实现
uses winspool
....
procedure WriteRawStringToPrinter(PrinterName:String; S:String);
var
Handle: THandle;
N: DWORD;
DocInfo1: TDocInfo1;
begin
if not OpenPrinter(PChar(PrinterName), Handle, nil) then
begin
ShowMessage('error ' + IntToStr(GetLastError));
Exit;
end;
with DocInfo1 do begin