printer 连续走纸问题

Question

我用vb里面的printer连续打印国际 EMS的时候，事先定好的坐标到打完一页以后就变乱了，不再按预先定好的坐标走请问是什么原因呢？？百思不得其解
Dim x, y
x = 0
y = 0
textsql = "select * from user11"
Set rs = conn(textsql)
Printer.Height = 200
Printer.ScaleMode = vbCentimeters
LeftMargin = 0
HeadTopPosition = 2
Printer.Font.Name = "Times New Roman"
Printer.Font.Size = 10
Printer.ScaleLeft = -LeftMargin
Printer.ScaleTop = -HeadTopPosition
Printer.ScaleHeight = 30
For i = 1 To 7
Printer.ScaleLeft = -LeftMargin
Printer.ScaleTop = -HeadTopPosition
Printer.CurrentX = 14 + x
Printer.CurrentY = 1 + y
Printer.Print "name"
y = y + 15.24    '15.24是EMS的高度，换页坐标+定长
Next
Printer.EndDoc
但是不能连续在每页的姓名上打上 name
而是变乱了
为什么 ？？ 是不是页面设置有问题
帮忙样
给分

Answer 1

可以在打印name时，用绝对坐标给currentX、CurrentY赋值，就不会乱了。

Answer 2

在一开始要让坐标归0，打完一页要换页。     Printer.CurrentX = 0
     Printer.CurrentY = 0
     。
     。
     。
     Printer.newpage
     Printer.enddoc