Private Sub Command1_Click()

Do While Len(Text1) > 10
Str1 = Text1
Do While len1 > 0 And Printer.TextWidth(Str1) > len1
Str1 = Left(Str1, Len(Str1) - 1)
Loop
Printer.Print Str1
If Len(Str1) = 0 Then Exit Do
Text1 = Mid(Text1, Len(Str1) + 1)
Loop
End Sub
回车换行打印已经掌握，但是这个超长字符打印换行一直没有学会，请问各位老大教教我。
网上最多的就是这个教程，但是他根本就不换行，也是一张纸打到头。。。请问是怎么回事。。。谢谢了。