7,787
社区成员
发帖
与我相关
我的任务
分享紧急求助！！！打印文本文件时，打印机为什么不会自动分行？？？
打印文本文件时，打印机为什么不会自动分行？？？长字患也是如此，有什么办法？？？ sossos!!!
...全文
请发表友善的回复…
发表回复
dondon2001 2001-11-30
- 打赏
- 举报
不好意思！给错了分！！！
dondon2001 2001-11-30
- 打赏
- 举报
写得好!
谢谢！！！！！
谢谢！！！！！
foolishtiger 2001-11-13
- 打赏
- 举报
Jneu(沧海桑田) (2001-11-11 22:19:08)
For I = 1 To Len(TEXT1.Text) / 30
Str = Str & Mid(TEXT1.Text, (I - 1) * 30 + 1, 30) & vbCrLf
Next I
这是Jneu(沧海桑田)昨天回的一个贴子,写得好!
For I = 1 To Len(TEXT1.Text) / 30
Str = Str & Mid(TEXT1.Text, (I - 1) * 30 + 1, 30) & vbCrLf
Next I
这是Jneu(沧海桑田)昨天回的一个贴子,写得好!
dondon2001 2001-11-13
- 打赏
- 举报
帮助我一下呀!
dondon2001 2001-11-13
- 打赏
- 举报
那怎么办呢？举个例子吧!
abiho 2001-11-11
- 打赏
- 举报
同意ByTheWay(到此一游)
ByTheWay 2001-11-11
- 打赏
- 举报
这样当然不会换行，你最好判一下str的长度len(str)
然后再分行打印
然后再分行打印
dondon2001 2001-11-11
- 打赏
- 举报
我是这样的：dim str as string
str=text1.text
printer.print str
str=text1.text
printer.print str
ByTheWay 2001-11-11
- 打赏
- 举报
能把你的打印那段放上来看看吗？
如果你用：
PRINTER.PRINT "ASASERTSETASREYTASDRYSADRYSAEDRYSDRYSDRYSDRYSDRYASRE6ATEGASTEASHGAYTASRTASRYTASDYASRA"
我估计打印机是不会换行的 ；）
如果你用：
PRINTER.PRINT "ASASERTSETASREYTASDRYSADRYSAEDRYSDRYSDRYSDRYSDRYASRE6ATEGASTEASHGAYTASRTASRYTASDYASRA"
我估计打印机是不会换行的 ；）
dondon2001 2001-11-11
- 打赏
- 举报
用VB编的。
ByTheWay 2001-11-11
- 打赏
- 举报
你不给它换行指令，它是不会换行的。
BYTEHWAY：
你是用VB编程，还是在在记事本中打印？
BYTEHWAY：
你是用VB编程，还是在在记事本中打印？
QQQVVV 2001-11-11
- 打赏
- 举报
我是通过在打印时设计一个小循环实现的。
