vb 打印怎么换行？

Question

Printer.FontName = "宋体"
Printer.FontSize = 11
Printer.FontBold = False
Printer.FontItalic = False

Printer.CurrentX = 24
Printer.CurrentY = 35
Printer.Print Text1.Text

text中输入的文字有50个，我需要10个字换一行，应该怎样编？
一楼的回答有点问题，就是当换行以后打印的Y坐标都为0

Answer 1

for i=1 to len(Text1.Text) step 10
Printer.Print mid(Text1.Text,i,10)
next

补充-------------------------
如果要指定显示位置，这样写：

Dim H1 As Single, H As Long, I As Long
H1 = Printer.TextHeight("A") '一个字符高度

For I = 1 To Len(Text1.Text) Step 10
Printer.CurrentX = H1 * 2 '距页面边距 2 个字符
Printer.CurrentY = H * H1 * 1.5 '行距为字符高度的 1.5 倍
H = H + 1
Printer.Print Mid(Text1.Text, I, 10)
Next