能不能改下代码？

dsasada 发布于 2018-05-09 23:13， 1766 次点击

Private Sub Command1_Click()
    For i = 0 To List1.ListCount - 1
        Printer.Print List1.List(i)
    Next
End sub

打印出来的数据太靠边了，放纸放的不好可能打不到，现在想把打印的数据位置再向右移动1cm，往下移2cm，代码怎么修改？

4 回复

Artless2018-05-09 23:53

printer可以定位

wds12018-05-10 08:10

Printer.ScaleLeft = 300
Printer.ScaleTop = 600

dsasada2018-05-10 09:38

回复 3楼 wds1

请问这300和600是什么单位，这段代码写在循环外面还是里面？

wds12018-05-10 13:32

300是屏幕分辨率单位，换算为尺寸为1cm。
在打印输出最前面写，表示打印开始位置。