vb打印问题

Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4

'初始坐标
x = 1
y = 4


'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) '起点坐标-终点坐标
Printer.DrawStyle = 0
Printer.Line (x + 132.5, y)-(x + 132.5, y + 194) '起点坐标-终点坐标
Printer.DrawStyle = 0
Printer.Line (x + 132.5, y + 194)-(x, y + 194) '起点坐标-终点坐标
Printer.DrawStyle = 0
Printer.Line (x, y + 194)-(x, y) '起点坐标-终点坐标


我的初始坐标是1毫米和4毫米，但是我打印在A4纸上确是8毫米和8毫米，我用尺量了，很奇怪，大家帮忙看看什么原因？？？

---

是否页边距的问题？

---

还是搞不定啊

---

大家帮帮忙啊

---

引用

Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4

'初始坐标
x = 1
y = 4


'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) '起点坐标-终点坐标
Printer.DrawStyle = 0
Printer.Line (x + 132.5, y)-(x + 132.5, y + 194) '起点坐标-终点坐标
Printer.DrawStyle = 0
Printer.Line (x + 132.5, y + 194)-(x, y + 194) '起点坐标-终点坐标
Printer.DrawStyle = 0
Printer.Line (x, y + 194)-(x, y) '起点坐标-终点坐标


我的初始坐标是1毫米和4毫米，但是我打印在A4纸上确是8毫米和8毫米，我用尺量了，很