关于换行打印的问题！
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看做一张纸，你可以任意指定它的尺寸，然后在上面写画。