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

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

printer可以定位

Printer.ScaleLeft = 300
Printer.ScaleTop = 600

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

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