实例写的不是很明白。根本不换行打印，请问如何修改打印20个字后换行。
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