vb打印位置问题

小弟写了一个程序要从打印机上打印，现在出现2个问题
1、printer.CurrentX = 103
   printer.CurrentY = 38
   printer.Print Text6.Text
还有其他的，分别写好了对应的坐标，可是打印的时候都是打在一行上，怎么搞呀，谢谢
2、我已经用代码设置了纸张大小，可是走纸还是按A4的走，需要怎么改？代码如下
纸张大小：1560*1020 mm

PrnUnit = 0.03937 * 1440      '设置最小打印单位(单位为mm)
Printer.Width = 1560 * PrnUnit             '初始化打印纸的宽度
Printer.Height = 1020 * PrnUnit          '初始化打印纸的高度

Printer.ScaleWidth = 1560 * PrnUnit
Printer.ScaleHeight = 1020 * PrnUnit

需要怎么改！谢谢大家，非常急，在线等！ --------------------编程问答-------------------- 请参见：
http://blog.csdn.net/jeffzsy/archive/2006/09/26/1285720.aspx
http://www.tongyi.net/develop/vb/1051947.html --------------------编程问答-------------------- '我程序中是这样用的，没问题
           Printer.ScaleMode = vbCentimeters '厘米
             Printer.Font.Name = "宋体"
           Printer.Font.Size = 12

                ' Printer.PaperSize = vbPRPSUser '使用用户自定义纸张大小---具体设置方法在打印机图标所在窗口选择“文件->服务器属性：创建新格式
                If pxdj.State = adStateOpen Then pxdj.Close
              pxdj.Open "select * from pxd where bh='" & Grid1.TextMatrix(i, 0) & "'", cnn1, adOpenDynamic, adLockOptimistic

                Printer.CurrentX = 16.6   '16.4
                Printer.CurrentY = 1.9
                Printer.Print pxdj!bh   '编号

                  Printer.CurrentX = 1.6 '0.6
                Printer.CurrentY = 3.5
                Printer.Print pxdj!zh   '站号

                  Printer.CurrentX = 6.5  '5.5
                Printer.CurrentY = 3.5
                Printer.Print pxdj!Address  '地址

                  Printer.NewPage  '下一张

                  Printer.EndDoc  '结束打印 --------------------编程问答-------------------- 记号。

补充：VB ,  数据库(包含打印，安装，报表)