AssignFile( MyFile, 'com1') 实现小票机串并口直接打印，怎样控制字体大小？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  MyFile: TextFile;
begin
  AssignFile(MyFile,'com1');
  Rewrite(MyFile);
  Writeln(MyFile, 'Print this text');
  CloseFile(MyFile);
end;
上面的代码怎么控制字体大小？
printer.Canvas.Font.Size :=18;这样是不行的哟。
如果用Printer.Canvas.TextOut来打印，直接就输出乱码。
小票机还是用AssignFile来打安全。

Answer 1

去这个看看有没有你要的。http://delphi.bibts.com/-7l16.htm

Answer 2

你得拿到 小票机 的编程参考书，然后知道往串口送什么字符是控制打印的。象以前的Epson针打就专门有ESC指令。