在打印字符串时自动换行

页面导航:首页 > 软件编程 > vb.net > 在打印字符串时自动换行

在打印字符串时自动换行

来源: 作者: 时间:2016-02-05 12:32 【

其中 len1 为打印的宽度, Str 为打印的文本。Do While Len(Str) 0str1 = StrDo While len1 0 And Printer.TextWidth(str1)

 

      

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

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <