writeln 如何向打印机发送十六进制指令

Question

打印小票时，需要切割小票，需要发送一个十六进制的指令给打印机，该如何实现？

Answer 1

assignfile(f,'lpt1:');
try
rewrite(f);
writeln(f,chr(27) chr(112) chr(0) chr(50) chr(200));//初始化
rewrite(f);
writeln(f,#27#64 '停车收费单');
writeln(f,#10'卡号:' LabCardNo.caption);
writeln(f,'进入日期:' LabInDate.caption);
writeln(f,'进入时间:' LabInTime.caption);
writeln(f,'离开日期:' LabOutDate.caption);
writeln(f,'离开时间:' LabOutTime.caption);
writeln(f,'共停车:' LabHour.caption ' ' LabMin.Caption);
writeln(f,'停车费:' labfee.caption #10#10#10#10#10#10);
finally
closefile(f);
end; 
VAR
lpt :TextFile;
BEGIN
AssignFile( lpt, 'LPT1' );
ReWrite( lpt );
Write( lpt, '打印测试' );
Write( lpt, #10 ); //打印机换行
CloseFile( lpt );
END;

Answer 2

打印小票的时候能不能打印商场的logo呢？？？

Answer 3

使用打印机的指令画~~~查查小票打印机的esc/pos指令集