关于换行打印的有关问题

关于换行打印的问题！
Printer.CurrentX   =   50
Printer.CurrentY   =   65
Printer.Print   Mid(Trim(Text1.Text),   1,   30)
Printer.CurrentX   =   50
Printer.CurrentY   =   75
Printer.Print   Mid(Trim(Text1.Text),   31,   60)
Printer.CurrentX   =   50
Printer.CurrentY   =   85
Printer.Print   Mid(Trim(Text1.Text),   61,   90)
第一段可以截取30个字符，但是第二段开始截取的就不一定是30个字符了，通常会多很多。我不会别的方法，在网上看了折行打印的，但是不会用，无法控制打印位置，请问谁能详细告诉我如何控制打印位置。。。
dim   varr1
dim   s1   as   string
varr   1=   split(text1.text,vbcrlf)
for   i   =   lbound(varr1)   to   ubound(varr1)
    s1   =   varr1(i)
printer.currentx   =   360
printer.currenty   =   text1.top   +200*i                 '这里是用来行间距的，不明白如何自定义打印位置，请知道的大哥，大姐们告诉兄弟我一声，我是新手实在是不知道该如何自定义打印位置。。。谢谢了。
printer.print   s1
next   i


[解决办法]
Printer.Print Mid(Trim(Text1.Text), 31, 30)
Printer.Print Mid(Trim(Text1.Text), 61, 30)
[解决办法]
用Printer.TextHeight（ "你的字串 "）来检测字高，控制行距；
Printer.Scale，Printer.ScaleHeight，Printer.ScaleWidth可以设置逻辑尺寸，就可以将Printer看做一张纸，你可以任意指定它的尺寸，然后在上面写画。