Delphi调用Zebra打印机的ZPL指令来打印条形码.docxVIP

给你一段我写过的代码供你参考一下： procedure TForm1.Button8Click(Sender: TObject);varlpt:textfile;beginassignFile(lpt,LPT1); 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 uses winspoolprocedure WriteRawStringToPrinter(PrinterName:String; S:String);varHandle: THandle;N: DWORD;DocInfo1: TDocInfo1;beginif uses winspool procedure WriteRawStringToPrinter(PrinterName:String; S:String); var Handle: THandle;