说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

让打印机只打印一行-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
让打印机只打印一行-VB资料

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

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘