斑马打印机条码打印

Delphi斑马打印机条码打印程序1.打印界面：2.代码如下(附斑马打印机基本指令)：unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, strutils, ExtCtrls,JPEG;typeTForm1 = class(TForm)Label1: TLabel;Label2: TLabel;Label3: TLabel;Label4: TLabel;Label5: TLabel;Edit1: TEdit;cbx1: TComboBox;Edit2: TEdit;cbx2: TComboBox;Memo1: TMemo;Button1: TButton;Button2: TButton;ComboBox1: TComboBox;Label6: TLabel;Button3: TButton;GroupBox6: TGroupBox;Label7: TLabel;cbxJMX: TComboBox;Edit3: TEdit;Button4: TButton;Image1: TImage;Button5: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button4Click(Sender: TObject);procedure Button5Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;function GETFONTHEX(chnstr: string; fontname: string; orient: integer; height: integer; width: integer; bold: integer; italic: integer; hexbuf: string): integer; stdcall; external 'fnthex32.dll';function PrtChnStr(x, y: integer; fontname: string; height, xmf, ymf: integer; chnstr: string): string;function GetQRCode(const str:PWideChar;Path:PChar):Integer;stdcall;external 'GenQRCode.dll';varForm1: TForm1;tupian:TJPEGImage;implementation{$R *.dfm}function PrtChnStr(x, y: integer; fontname: string; height, xmf, ymf: integer; chnstr: string): string;varbuf, ret: string;count: integer;beginresult := '';setlength(buf, 21 * 1024);count := GETFONTHEX(chnstr, fontname, 0, height, 0, 1, 0, buf);if count > 0 thenbeginret := Copy(buf, 1, count);result := ret + '^FO' + inttostr(x) + ',' + inttostr(y) + '^XGOUTSTR01,' + inttostr(xmf) + ',' + inttostr(ymf) + '^FS';end;end;//--------------------生成指令---------------------------------------------procedure TForm1.Button1Click(Sender: TObject);varprtstr, code ,sl: string;beginif edit3.Text='' thenbeginshowmessage('打印数量不能为空');edit3.SetFocus ;Edit3.SelectAll;exit;end;tryStrToFloat(Edit3.Text);exceptEdit3.SetFocus;Edit3.SelectAll;showmessage('打印数量不正确，请重新录入！');Exit;end;if cbx1.Text = 'Code 11' thencode := '^B1'else if cbx1.Text = 'Code 39' thencode := '^B3'else if cbx1.Text = 'Code 49' thencode := '^B4'else if cbx1.Text = 'Code 93' thencode := '^BA'else if cbx1.Text = 'Code 128' thencode := '^BC'else if cbx1.Text = 'EAN-8' thencode := '^B8';if (cbxJMX.Text<>'A') and (cbxJMX.Text<>'B') thencbxJMX.Text:='A' ;prtstr := '^XA^JM'+cbxJMX.Text+'^IA6^XZ^FS^XA^FS^BY2,3^LH20,23^FS';//^JM设定打印分辨率（点/毫米）A、B; ^BY 设置条码宽度和高度;^LH打印机开始位置prtstr := prtstr + '^FO60,10' + code + ',' + '70^FD' + trim(Edit1.Text) + '^FS';//^FO20,30 表示ZEBAR 这行字距标签纸边的位置; ^FD 定义打印内容指令prtstr := prtstr + PrtChnStr(80, 100, pchar(cbx2.Text), 14, 1, 2, pchar(Edit2.Text)); //字体和文字信息prtstr := prtstr + '^PQ'+edit3.Text+'^FS'; //^PQ打印份数prtstr := prtstr + '^PRC^FS^XZ'; //^PRC打印速度^FS-数据域分隔命令(换行) prtstr := prtstr + '^XA^EG^FS^XZ'; //^EG删除所有打印机上的存储档Memo1.lines.clear;Memo1.lines.Add(prtstr);end;//---------------------------------打印----------------------------procedure TForm1.Button2Click(Sender: TObject);varprtstr: string;filehandle: integer;commhand: THandle;beginprtstr := Memo1.Text;try //---选择打印端口COM1、LPT1commhand := CreateFile(PChar(ComboBox1.Text), GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);if commhand <> INV ALID_HANDLE_V ALUE thenfilewrite(commhand, prtstr[1], length(prtstr) )finallyCloseHandle(commhand);end;end;procedure TForm1.Button3Click(Sender: TObject);beginMemo1.Lines.Clear;end;//----生成二维条码--------------------procedure TForm1.Button4Click(Sender: TObject);vars:WideString ;Path : string ;lpt:textfile;begins := Edit2.Text ;Image1.Picture.Assign(nil);Path := ExtractFilePath(ParamStr(0))+'tmp.bmp';GetQRCode(PWideChar(s),PChar(path));Image1.Picture.Bitmap.LoadFromFile(Path);end;//------------打印二维条码------------------------procedure TForm1.Button5Click(Sender: TObject);varprtstr: string;filehandle: integer;commhand: THandle;beginprtstr :='^XA^BQN,5,5^FO30,60^FDMM,A'+ Trim(edit1.Text) +'^FS^XZ'; //^BQN 打印二维码{prtstr := prtstr + PrtChnStr(80, 100, pchar(cbx2.Text), 14, 1, 2, pchar(Edit2.Text)); prtstr := prtstr + '^PQ1^FS';prtstr := prtstr + '^PRC^FS^XZ';prtstr := prtstr + '^XA^EG^FS^XZ'; }try //---选择打印端口COM1、LPT1commhand := CreateFile(PChar(ComboBox1.Text), GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);if commhand <> INV ALID_HANDLE_V ALUE thenfilewrite(commhand, prtstr[1], length(prtstr) )finallyCloseHandle(commhand);end;end;end.3.斑马打印机基本指令ZPL指令及条码选择整理(斑马S4M)^XA^LH50,20^FO10,50^BY2,2.0,200^BCC^FD>51234567890^FS^CW1,E:MSUNG24.FNT^CI17^FO40,270^A1N,20,20^F8^FD测试文本^FS^XZZPL指令是区分大小写的。