怎么改变pos小票字体的大小?(50分)

我delphi7.0,做了个小的pos系统,用writeln()写端口的方法打印小票,但是小票的字体都是一样大小的,有没有办法控制每行字体的大小?注意程序没有用任何驱动.
求急,献分!!!

我也是遇到同样的问题，我用VB开发的，但是速度很不理想，我的是EPSON TM-88II。关注一下。

我有这么一段
AssignFile(f, 'LPT1');
rewrite(f);
write(f,chr(28)+chr(ord('&')));
writeln(f,'ABC打印测试ABC');
closefile(f);
可是却打不出了汉字，两头的英文却正常

可以用打印机的专用指令 可以到epson网站去瞧瞧

Tm-U210针式打印机：
AssignFile(f, 'LPT1');
rewrite(f);
write(f,chr(27)+chr(64));
//初始化打印头
write(f,chr(27)+chr(33)+chr(0));
// 英文正常大小
write(f,chr(28)+chr(33)+chr(0));
// 中文正常大小
writeln(f,'ABC打印测试ABC');
write(f,chr(27)+chr(33)+chr(16));
// 英文倍高模式
write(f,chr(28)+chr(33)+chr(8));
//中文倍高模式
writeln(f,'ABC打印测试ABC');
write(f,chr(27)+chr(33)+chr(32));
// 英文倍宽模式
write(f,chr(28)+chr(33)+chr(4));
//中文倍宽模式
writeln(f,'ABC打印测试ABC');
write(f,chr(27)+chr(33)+chr(48));
// 英文倍高倍宽模式
write(f,chr(28)+chr(33)+chr(12));
//中文倍高倍宽模式
writeln(f,'ABC打印测试ABC');
writeln(f,chr(10));
//换行
closefile(f);

TM-88II热敏打印机:
AssignFile(f, 'LPT1');
rewrite(f);
write(f,chr(27)+chr(64));
//初始化打印头
write(f,chr(29)+chr(33)+chr(0));
// 中英文正常大小
writeln(f,'ABC打印测试ABC');
write(f,chr(29)+chr(33)+chr(1));
//中英文倍高模式
writeln(f,'ABC打印测试ABC');
write(f,chr(29)+chr(33)+chr(16));
//中英文倍宽模式
writeln(f,'ABC打印测试ABC');
write(f,chr(29)+chr(33)+chr(17));
//中英文倍高倍宽模式
writeln(f,'ABC打印测试ABC');
writeln(f,chr(10));
//换行
closefile(f);

好的,满意了.不错!!!