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