在Delphi下打印Sato标签,其中中文除用字卡以外,可以把中文生成BMP图片再打印,格式如下:
[Parameter] <GM>aaaaa, n-n
a “Total Byte of a BMP file”
n “Data”
procedure TForm1.btn2Click(Sender: TObject);
var
ALpt:string;
sCmdBuf:AnsiString;
ms:TmemoryStream;
Buf: pbyte;
nSize: int64;
begin
ms:=TMemoryStream.Create;
sCmdBuf:=chr(27)+'A'; //开始
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));
sCmdBuf:=chr(27)+'A3H001V001'; //设置起始点位置 h 001 v 001 水平和垂直位置都从1开始
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));
sCmdBuf:=chr(27)+'CS6'; //速度
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));
sCmdBuf:=chr(27)+'#E4'; //浓度
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));
sCmdBuf:=chr(27)+'A1H0180'; //设置标签的总宽度
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));
sCmdBuf:=chr(27)+'V0084'; //设置标签的垂直高度
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));
sCmdBuf:=chr(27)+'V0084'+chr(27)+'H0084'+chr(27)+'BG021081913043006'; //02 线条宽度 108 线条的dot高度
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));
sCmdBuf:=chr(27)+'Q1';//打印份数
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));
sCmdBuf:=chr(27)+'Z'; //结束标记
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));
ALpt:=getdefaultprinter; //获取打印机名称
ms.Position := 0;
nsize := ms.Size;
buf := GetMemory(nsize);
ms.Read(buf^, nsize);
WriteRawStringToPrinter(ALpt, buf, nsize); //写入打印机端口
ms.free;
end;