怎么设置打印字体的大小?

VB打印需使用PRINTER方法，调用自定义打印函数来控制打印位置和字号大小。自定义打印函数：
Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt0 As Variant)
Printer.CurrentX = x
Printer.CurrentY = y
Printer.FontSize = fnt
Printer.Print txt0
End Function
也可将颜色和字体作为打印函数进行设置。
打印代码：
y = 500
x = 600
txt = "备件代码"
dd = prnt(x, y, fnt, txt)
Printer.EndDoc ' 打印完成。
详细请参阅如下网址：
http://zhidao.baidu.com/question/4168806.html
回答者：zdingyun - 高级经理 七级 8-12 10:39
提问者对于答案的评价：谢谢指点！！评价已经被关闭 目前有 1 个人评价
好
100% （1） 不好
0% （0）

其他回答 共 1 条
VB打印需使用PRINTER方法，调用自定义打印函数来控制打印位置和字号大小。自定义打印函数：
Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt0 As Variant)
Printer.CurrentX = x
Printer.CurrentY = y
Printer.FontSize = fnt
Printer.Print txt0