您的位置：程序门 -> vb -> 基础类

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

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb中如何实现打印时拉伸字体？[已结贴,结贴人:yy1026]

发表于：2007-04-06 17:28:26 楼主

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

发表于：2007-04-06 17:52:201楼得分:2

是可以实现的
记得以前做过
不过一下子还真想不起来了
帮你找找看

发表于：2007-04-06 18:31:272楼得分:0

谢谢这位大哥帮我找找一定要找到啊！
必有重谢呵呵！

发表于：2007-04-06 20:28:523楼得分:1

终于找到了
我也是以前在网上下载的资料
如果需要的话把邮箱留下来

发表于：2007-04-06 21:22:014楼得分:0

zm.backer（#)gmail.com
太谢谢了！呵呵快发给我吧！等不急了

发表于：2007-04-06 21:27:275楼得分:1

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

发表于：2007-04-06 23:39:146楼得分:0

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

发表于：2007-04-07 23:17:307楼得分:5

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

发表于：2007-04-09 10:32:208楼得分:11

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

发表于：2008-01-15 17:09:359楼得分:0

标记

下一篇：vpn连接下的access数据库访问
上一篇：一个窗体怎么利用另一个窗体的变量

其他资讯