136.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

在打印字符串时自动换行   
       
其中 len1 为打印的宽度， Str 为打印的文本。

Do While Len(Str) > 0
str1 = Str
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 '不匹配
Str = Mid(Str, Len(Str1)+1) '截断！
Loop