易语言 怎么让打印机打出来的字体跟编辑框里面的字体一样大小?
一共有31个编辑框5个组合框如果就1个编辑框的情况下使用打印机1.字体=编辑框1.字体就正常有2个编辑框的情况下我用打印机1.字体=编辑框1.字体打印机1.字体=编辑框2...
一共有31个编辑框 5个组合框如果就1个编辑框的情况下使用打印机1.字体 = 编辑框1.字体就正常有2个编辑框的情况下我用打印机1.字体 = 编辑框1.字体打印机1.字体 = 编辑框2.字体这样就都不可以了
麻烦写个范本,谢谢 展开
麻烦写个范本,谢谢 展开
3个回答
展开全部
这种情况我确实没有试验过,单从理论上讲可以:
打印机1.字体 = 编辑框1.字体
打印机1.写文本行 (编辑框1.内容)
打印机1.字体 = 编辑框2.字体
打印机1.写文本行 (编辑框2.内容)
.
.
.
如果不行,可将编辑框的内容及字体属性置于数据源中,从数据源打印,效果是一样的,只是代码复杂一些,见下:
.版本 2
.子程序 编辑框字体到数据源
.局部变量 当前字体, 字体
当前字体 = 编辑框1.字体
数据源1.置文本 (1, 1, 编辑框1.内容)
数据源1.置字体名 (1, 1, 1, 1, 当前字体.字体名称)
数据源1.置字体尺寸 (1, 1, 1, 1, 当前字体.字体大小 ÷ 0.225)
数据源1.置字体属性 (1, 1, 1, 1, 取字体属性 (当前字体))
当前字体 = 编辑框2.字体
数据源1.置文本 (2, 1, 编辑框2.内容)
数据源1.置字体名 (2, 1, 1, 1, 当前字体.字体名称)
数据源1.置字体尺寸 (2, 1, 1, 1, 当前字体.字体大小 ÷ 0.225)
数据源1.置字体属性 (2, 1, 1, 1, 取字体属性 (当前字体))
.
.
.
.版本 2
.子程序 取字体属性, 整数型
.参数 字体, 字体
.局部变量 D, 整数型
D = 0
.如果真 (字体.加粗 = 真)
D = 1
.如果真结束
.如果真 (字体.倾斜 = 真)
D = D + 2
.如果真结束
.如果真 (字体.下划线 = 真)
D = D + 4
.如果真结束
.如果真 (字体.删除线 = 真)
D = D + 8
.如果真结束
返回 (D)
代码没有写完,只是给你打个样 。 希望我的回答对你有所帮助 。
打印机1.字体 = 编辑框1.字体
打印机1.写文本行 (编辑框1.内容)
打印机1.字体 = 编辑框2.字体
打印机1.写文本行 (编辑框2.内容)
.
.
.
如果不行,可将编辑框的内容及字体属性置于数据源中,从数据源打印,效果是一样的,只是代码复杂一些,见下:
.版本 2
.子程序 编辑框字体到数据源
.局部变量 当前字体, 字体
当前字体 = 编辑框1.字体
数据源1.置文本 (1, 1, 编辑框1.内容)
数据源1.置字体名 (1, 1, 1, 1, 当前字体.字体名称)
数据源1.置字体尺寸 (1, 1, 1, 1, 当前字体.字体大小 ÷ 0.225)
数据源1.置字体属性 (1, 1, 1, 1, 取字体属性 (当前字体))
当前字体 = 编辑框2.字体
数据源1.置文本 (2, 1, 编辑框2.内容)
数据源1.置字体名 (2, 1, 1, 1, 当前字体.字体名称)
数据源1.置字体尺寸 (2, 1, 1, 1, 当前字体.字体大小 ÷ 0.225)
数据源1.置字体属性 (2, 1, 1, 1, 取字体属性 (当前字体))
.
.
.
.版本 2
.子程序 取字体属性, 整数型
.参数 字体, 字体
.局部变量 D, 整数型
D = 0
.如果真 (字体.加粗 = 真)
D = 1
.如果真结束
.如果真 (字体.倾斜 = 真)
D = D + 2
.如果真结束
.如果真 (字体.下划线 = 真)
D = D + 4
.如果真结束
.如果真 (字体.删除线 = 真)
D = D + 8
.如果真结束
返回 (D)
代码没有写完,只是给你打个样 。 希望我的回答对你有所帮助 。
来自:求助得到的回答
2014-04-09
展开全部
设置是多大的字体,打出来就是多在字体,
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2014-04-09
展开全部
要用ps或者cdr打印
追问
麻烦详细点 我是菜鸟
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询