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

largewang 2002-09-13 11:08:11
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.
...全文
28 6 打赏 收藏 举报
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
沧-海-桑-田 2002-10-16
不知道
  • 打赏
  • 举报
回复
shuixin13 2002-09-23
试了通知我一声
  • 打赏
  • 举报
回复
shuixin13 2002-09-23
Printer.Canvas.Font.Assign( Button1.Font );
  • 打赏
  • 举报
回复
largewang 2002-09-13
把打印结果同Button1.Caption比较看看,字体不一样啊。
我相信这个问题一定有解(确实有人解决了这个问题)

Thanks for your help.
  • 打赏
  • 举报
回复
largewang 2002-09-13
强子:你给我拖后退哈。

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


不过如果有哪位帮我解决了这个问题的话,我可以作问题交换哦。
  • 打赏
  • 举报
回复
asgq 2002-09-13
尽搞些牛犄角问题
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi
加入

5096

社区成员

Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
申请成为版主
帖子事件
创建了帖子
2002-09-13 11:08
社区公告
暂无公告