易语言 怎么让打印机打出来的字体跟编辑框里面的字体一样大小?

2024-12-15 22:56:42
推荐回答(3个)
回答1:

这种情况我确实没有试验过,单从理论上讲可以:
打印机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)

代码没有写完,只是给你打个样 。 希望我的回答对你有所帮助 。

回答2:

设置是多大的字体,打出来就是多在字体,

回答3:

要用ps或者cdr打印