楼上的同志借用下代码~（复制楼上的，改点东西~另一种方法~异曲同工而已~）
Private Sub Text1_Change()
If Len(Text1.Text) Mod 10 = 0 Then
Text1.Text = Text1.Text & chr(13) & chr(10)
Text1.SelStart = Len(Text1.Text)
End If
End Sub
a=a+1
If a Mod 10 = 0 Then Picture1.Print
内容全部来源于网络收集，如有侵权，请联系网站删除！