回 帖 发 新 帖 刷新版面

主题:打印定位问题

做了个打印按钮,内容如下:

Private Sub Command1_Click()
Printer.CurrentX = 20 '这里边写左边距
Printer.CurrentY = 50 '这里边写上边距
Printer.Font.Name = 宋体 '这里是字体名
Printer.FontSize = 14 '这里是字体大小
Printer.Print Text1.Text '你要打什么
Printer.EndDoc '打印完成
End Sub


为什么总打印在左上角?不管我如何改变Printer.CurrentX = 20和Printer.CurrentY = 50 的数据,好像没有什么效果?

回复列表 (共5个回复)

沙发

有用的呀。。。

数值要设得大点才会有明显的效果。。。

比如:200,500就比较明显了。。。

板凳

默认情况下
1440为一英寸(约25毫米)。

3 楼

如何把单位转化为毫米?

4 楼

看帖回帖好习惯
谢谢楼主了,请继续努力















[url=http://www.sc115.com/vector]矢量素材[/url],[url=http://www.sc115.com/PPT]PPT模板[/url],[url=http://www.sc115.com]素材中国[/url]

5 楼

回3楼:
方法1,设置对象的ScaleMode属性(1 (缺省值)缇; 2 磅;3 像素;4 字符; 5 英寸; 6 毫米;7 厘米;8 HiMetric ; 9 控件容器使用的单位,决定控件位置;10 控件容器使用的单位,决定控件的大小。 )
方法2,自行设立一个换算函数。

我来回复

您尚未登录,请登录后再回复。点此登录或注册