vb中如何实现打印时拉伸字体？

yy1026 2007-04-06 05:28:26

本来做的b／s结构打印模块但是由于打印样本需要拉伸字体才能符合要求，用css无法定义。而用vml字体空心又太粗，svg对中文的支持又不好而且字体名称要用国际标准的，因此我转而用个客户端来实现但是发现vb中printer没有相关属性和方法。不知道各位高手能不能实现，非常急用哦！
我用的字体是长宋，经典长宋简！

...全文

485 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

SymanYe 2009-01-31

打赏
举报

学习了，各位

tingting1123 2008-01-15

打赏
举报

标记

zdingyun 2007-04-09

打赏
举报

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

DengXingJie 2007-04-07

打赏
举报

一天没上来
刚刚才发送
不知收到没有

yy1026 2007-04-06

打赏
举报

我测试了一下楼上的代码没成功呢没什么反映，我的打印机不是打印口的，我把端口换了不知道是不是这个原因没成功！

zdingyun 2007-04-06

打赏
举报

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

yy1026 2007-04-06