| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 149 人关注过本帖
标题:能不能改下代码?
只看楼主 收藏
dsasada
Rank: 1
等 级:新手上路
帖 子:44
专家分:0
注 册:2018-3-30
结帖率:75%
  已结贴   问题点数:20  回复次数:4   
能不能改下代码?
Private Sub Command1_Click()
    For i = 0 To List1.ListCount - 1
        Printer.Print List1.List(i)
    Next
End sub

打印出来的数据太靠边了,放纸放的不好可能打不到,现在想把打印的数据位置再向右移动1cm,往下移2cm,代码怎么修改?
2018-05-09 23:13
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:93
帖 子:4156
专家分:28549
注 册:2009-4-8
  得分:0 
printer可以定位

无知
2018-05-09 23:53
wds1
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:17
帖 子:184
专家分:963
注 册:2016-3-10
  得分:20 
Printer.ScaleLeft = 300
Printer.ScaleTop = 600
2018-05-10 08:10
dsasada
Rank: 1
等 级:新手上路
帖 子:44
专家分:0
注 册:2018-3-30
  得分:0 
回复 3楼 wds1
请问这300和600是什么单位,这段代码写在循环外面还是里面?
2018-05-10 09:38
wds1
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:17
帖 子:184
专家分:963
注 册:2016-3-10
  得分:0 
300是屏幕分辨率单位,换算为尺寸为1cm。
在打印输出最前面写,表示打印开始位置。

2018-05-10 13:32







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.189822 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved