vsPrinter中用代码打印表格有关问题

vsPrinter中用代码打印表格问题
就是无论怎么设置CurrentX属性，它总是从默认的X位置画表
    With VP
        .Zoom = 100
        .StartDoc

        .CurrentX = 1000
        .CurrentY = 1700
        .Paragraph = "花名册序号："
        
        '小框
        .CurrentX = 2280
        .CurrentY = 1700
        .TableBorder = tbAll
        .StartTable
            .TableCell(tcRows) = 1
            .TableCell(tcCols) = 1
            .TableCell(tcRowHeight) = 300
            .TableCell(tcColWidth) = 1440
        .EndTable
        .EndDoc
    End With
Debug.Print "x:" & .CurrentX & "  y:" & .CurrentY

出来的结果是小框的左边框在名和册之间，而没在花名册序号之后画表
画表后，X值为0，Y正常
------解决方案--------------------
自己顶一下，顶着有分