X
xiaoshu
Unregistered / Unconfirmed
GUEST, unregistred user!
近来写pos机的程序,要求打印;程序中要求改变字体大小,但不知
用何种控制码。
下面是程序片断:
procedure TForm2.BitBtn1Click(Sender: TObject);
var
F: TextFile;
s: String;
begin
s := memo1.text;
AssignFile(F, 'LPT1');
Rewrite(F);
Writeln(F,chr($1C)+ chr($57) +chr($01));
Writeln(F, s);
//有些打印机要输入换页符才开始打印,此行可以删除
CloseFile(F);
end;
如:ESC 57 01 (57,01 为16进制数)试把汉字字体扩大一倍,通常是五号字。
但缩小一倍,或两倍,用什么控制码?
或其他的改变字体的控制码?
请赐教!
--
用何种控制码。
下面是程序片断:
procedure TForm2.BitBtn1Click(Sender: TObject);
var
F: TextFile;
s: String;
begin
s := memo1.text;
AssignFile(F, 'LPT1');
Rewrite(F);
Writeln(F,chr($1C)+ chr($57) +chr($01));
Writeln(F, s);
//有些打印机要输入换页符才开始打印,此行可以删除
CloseFile(F);
end;
如:ESC 57 01 (57,01 为16进制数)试把汉字字体扩大一倍,通常是五号字。
但缩小一倍,或两倍,用什么控制码?
或其他的改变字体的控制码?
请赐教!
--