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

[largewang]

unit Unit1;

interface

uses
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;

implementation

uses
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.

[asgq]

尽搞些牛犄角问题

• 打赏
• 举报

回复 赞

[largewang]

强子：你给我拖后退哈。

我对字体"Fixedsys"的认识：该字体在FontDialog的列表中，但不在Word字处理软件的字体设置列表中，也不在控制面板的字体目录下。在记事簿中可以选择该字体，但还是打印不出该字体的效果。


不过如果有哪位帮我解决了这个问题的话，我可以作问题交换哦。

• 打赏
• 举报

回复 赞

[largewang]

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

Thanks for your help.

• 打赏
• 举报

回复 赞

[shuixin13]

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

• 打赏
• 举报

回复 赞

[shuixin13]

试了通知我一声

• 打赏
• 举报

回复 赞

[沧-海-桑-田]

不知道

• 打赏
• 举报

回复 赞