[Delphi]常見的ESC/POS功能用法

 2,157 total views,  3 views today

最近在幫朋友寫服飾POS軟體,發現熱感印表機好像很少人用耶(google都很少有教學),最後是在大陸同胞那邊找到資源,相較之下好像我們台灣比較「暗度」一點。

[delphi]
Procedure Tform1.Btn1Click(Sender:Tobject);
var
f:textfile;
begin

Assignfile(f , ‘LPT1’);
rewrite(f);
edt1.text := ‘C100656026M’;
write(f, chr(27) + ‘a’ + chr(49) ) ; //最後一碼 48:文字靠左對齊 49:置中對齊
write(f, chr(27) + ‘!’ + chr(6) ) ; // 英文字放大倍率
write(f, chr(28) + ‘!’ + chr(1) ) ; // 中文字放大倍率
write(f, chr(29) + ‘w’ + chr(1) ) ; // 條碼寬度,最小單位 1,2,3
write(f, chr(29) + ‘h’ + chr(36) ) ; // 條碼高度
write(f, chr(29) + ‘H’ + chr(3) ) ; // 條碼值要印在哪裡?( 0:不印,1:條碼上面,2:條碼下面,3:條碼上下都印)
write(f, chr(29) + ‘f’ + chr(1) ); //HRI字體
writeln(f, chr(29) + ‘k’ + chr(73) + chr(14) + ‘{B’ + edt1.text + chr(0); // 列印條碼
write(f, Chr(28) + Chr(40) + Chr(76) + Chr(2) + Chr(0) + Chr(66) + Chr(49) ); // FS (L 送紙到定位點
write(f, Chr(29) + Chr(86) + Chr(0) ); //切紙
closefile(f);
end;
[/delphi]

 

發表迴響

%d 位部落客按了讚: