:★★★难度实在太大:如何将字体为'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.
...全文
73 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
沧-海-桑-田 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
  • 打赏
  • 举报
回复
尽搞些牛犄角问题

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧