vb中如何实现打印时拉伸字体？
本来做的b／s结构打印模块 但是由于打印样本需要拉伸字体才能符合要求 ，用css无法定义。 而用vml字体空心 又太粗，svg对中文的支持又不好而且字体名称要用国际标准的， 因此我转而用个客户端来实现但是发现vb中printer没有相关属性和方法。 不知道各位高手能不能实现，非常急用哦！
我用的字体是长宋，经典长宋简！
[解决办法]
是可以实现的
记得以前做过
不过一下子还真想不起来了
帮你找找看
[解决办法]
终于找到了
我也是以前在网上下载的资料
如果需要的话把邮箱留下来
[解决办法]
Private Sub Command1_Click()
Open "LPT1 " For Output As #1
Print #1, Chr(27); "IA "; "引号里填写打印机脚本 " '正常字形
Print #1, Chr(27); "IB "; "引号里填写打印机脚本 " '放大
Print #1, Chr(27); "IC "; "引号里填写打印机脚本 " '拉伸
Print #1, Chr(27); "ID "; "引号里填写打印机脚本 " '拉伸
'……如此若干行……
Close #1
End Sub
[解决办法]
一天没上来
刚刚才发送
不知收到没有
[解决办法]
WIN98下能打印中文，WINXP下能打印英文字符及数字，打印机为EPSON针打：
Private Sub Command1_Click()
Open "LPT1 " For Output As #1
For I = 1 To 5
Print #1, Chr(10) '控制换行，同Chr(13)
Next
Print #1, Chr(27); "IA "; "ABCDEFGHIJKL " '正常字体每行80字符 "
Print #1, Chr(14); "ABCDEFGHIJKL " '宽体每行40字符
Print #1, Chr(27); "IA " '恢复正常字体
Print #1, Chr(27); "IA "; "ABCDEFGHIJKL " '正常字体每行80字符 "
Print #1, Chr(27); "IB "; "ABCDEFGHIJKL " '横向扩展每行40字符
Print #1, Chr(27); "IC "; "ABCDEFGHIJKL " '纵向扩展每行80字符
Print #1, Chr(27); "E "; "ABCDEFGHIJKL " '加重黑体
Print #1, Chr(27); "F " '取消加重黑体
Print #1, Chr(27); "IA " '恢复正常字体
Print #1, Chr(27); "4 "; "ABCDEFGHIJKL " '斜体
Print #1, Chr(27); "5 " '取消斜体
Print #1, Chr(27); "0 "; "ABCDEFGHIJKL " '打印每吋6行改8行
Print #1, Chr(27); "1 "; "ABCDEFGHIJKL " '重置行间隔为7/72
Print #1, Chr(27); "2 "; "ABCDEFGHIJKL " '重置行间隔为1/6
Print #1, Chr(27); "IA "; "ABCDEFGHIJKL " '正常字体每行80字符 "
'Print #1, Chr(12) '控制换页
Close #1
End Sub
