如何打印这种字体?(100分)

  • 主题发起人 主题发起人 djflying
  • 开始时间 开始时间
D

djflying

Unregistered / Unconfirmed
GUEST, unregistred user!
3mm(宽)*7mm(高),宋体,字体间距0.5mm,用于发票上的单头;
6mm(宽)*4mm(高),看样子是宋体,间距1mm,用于‘南国税发自’
95(48)号 ,发票上必有这几个字。
以上是我用尺子量的,可能不十分精确,不过也差不离了。
windows2000里没有这种字体,怎么办?
谁做过发票的打印的,帮帮忙!
 
居然没人知道吗? 应该很多人做过的...帮帮忙阿
 
没办法,你自已定义字体吧
 
我曾经解决过这个问题。
帮你搜的:
代码是:
hFont1 := CreateFont(updown1.Position,updown2.position,
updown3.Position*10,0,updown4.Position*100, b, a, c, DEFAULT_CHARSET or GB2312_CHARSET,
OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY,
DEFAULT_PITCH or FF_DONTCARE, 'F1');
//参数说明:
// 1 为长度 2 为宽度 3 为倾斜的角度 4为基准的角度 5 为字体的重量也是字体的粗度等
// 6 为斜体标志 7 为有底线的标志,8 为删除线的标志 9为 字符集 10为输出的精度
// 11为剪裁的精度 12为输出的质量 13为字体间距
// 14为指定的字体名称,不能超过32个字
selectobject(label1.Canvas.Handle,hfont1);
//label1.Canvas.TextOut(updown1.Position,updown2.Position,edit4.text);
textout(label1.Canvas.Handle,100,100,PChar(edit1.text),Length(edit1.text));
后我只要加入
selectobject(printer.canvas.handle,hfont1);
就可以在打印机上输出了。
 
参考:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=312227
 
谢谢各位的意见,不过我这边的情况没办法直接创建字体引用,能不能提供一种字体给我。
我在报表工具里面可以使用字体,但不可以在代码里面改变某个单元格的字体的宽高间距
等属性。
to jacke_chen:如何在windows里面自定义字体?造字吗?
 
救命阿,难道没人知道吗?
 
那位指点一下用何种字体,以及到哪里搞到这种字体啊....
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部