主题：根据条件把内容打印在不同坐标

 见如下代码：如何实现当宽度超过一定范围时（例如超过4个汉字时），4个字之内按一组X、Y坐标打印，超出的部分按另一组X、Y坐标打印？

   Dim lujie As New prt.RenderText 

    lujie.Text  = txtjie.Value
    lujie.X = val(.rows(0)("收件人地址_X")) + zpy
    lujie.y = val(.rows(0)("收件人地址_Y")) + spy

    lujie.Width = val(.rows(0)("宽度")) + spy
    doc.body.Children.Add(lujie)