：★★★难度实在太大：如何将字体为'Fixedsys'的英文文本输出到打印机？ ★★★

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses
  Printers;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Caption := 'AMVW269';
  Button1.Font.Name := 'Fixedsys';
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  with Printer do begin
    BeginDoc;
    Canvas.Font.Name := 'Fixedsys';
    Canvas.TextOut(10, 10, 'AMVW269');
    EndDoc;
  end;
end;end.

Answer 1

把打印结果同Button1.Caption比较看看，字体不一样啊。
我相信这个问题一定有解（确实有人解决了这个问题）Thanks for your help.

Answer 2

强子：你给我拖后退哈。我对字体"Fixedsys"的认识：该字体在FontDialog的列表中，但不在Word字处理软件的字体设置列表中，也不在控制面板的字体目录下。在记事簿中可以选择该字体，但还是打印不出该字体的效果。
不过如果有哪位帮我解决了这个问题的话，我可以作问题交换哦。

Answer 3

Printer.Canvas.Font.Assign( Button1.Font );