在打印字符串时自动换行

 

       

其中 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 

上一个：在文本框中快速增加一串字符
下一个：VB编程的好帮手--资源文件