textout()中怎样控制打印字体？

Question

我用实现打印textout（a,b,str），请问怎样设置str的字体，默认的总是宋体，不知道怎么设置，请高手指点一下。

Answer 1

你这样试试：
self.Canvas.Brush.Style := bsClear;
self.Canvas.Font.Name := '黑体';
self.Canvas.Font.Size := 72;
self.Canvas.Font.Color := clNavy;
self.Canvas.TextOut(20, 20, '你要打印的...');

Answer 2

with Printer.Canvas do
  begin
    Font.Charset := GB2312_CHARSET;
    Font.Name := '隶书';
    Font.Size := 12;
    TextOut(100, 100, '测试文本');
  end;

Answer 3

谢谢，这样可以，如果我想通过一个Tcombobox框选择字体来设置打印的话可以吗，通过设置可以将memo里面的字体按设定字体打印出来。