writeln 打印问题，急！！

Question

 
大家好，下面是一段delphi在pos机上的打印代码，     Assignfile(RPrinter,'lpt1'); // 设置打印机
      Rewrite(RPrinter); // 准备写文件
      Writeln(RPrinter,'         '+'谢谢化妆'+'       ');
      Writeln(RPrinter,'    '+'欢迎光临  谢谢惠顾'+'       '+Sid);
      Writeln(RPrinter,'========================');
我想调整打印的字体的效果，怎么写啊，如上面的"谢谢化妆"我打算搞成宋体，2号字体，这样怎么设置属性啊！
拜托了。先谢谢各位大虾

Answer 1

这种方式是把打印机当作一个“文本文件”来操作，字体什么的都是默认格式
如果需要字体什么的，可以有两个方法
1、用Printer对象，取得打印机分辨率，再用API创建逻辑字体打印
2、直接引入报表控件，如FastReport，在类似写字板程序的设计器里把格式都设好就行，API层的实现则无需考虑了

Answer 2

參考這裡：http://download.csdn.net/source/1335190/

Answer 3

建议你，直接操作printer对象把，在printer的canvas上画，那样控制字体样式非常方便

Answer 4

用控件吧，quickreport,fastreport,搜搜吧，都有例程的！