让打印机只打印一行
出处：网络

其中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.Printstr1'打印
IfLen(str1)=0ThenExitDo'不匹配
Str=Mid(Str,Len(Str1)+1)'截断！
Loop

[返回]

首页 | 设为首页 | 加入收藏 | 关于本站 | 友情链接 | 版权声明