打开文件打印问题 #1

游子 2011-05-26 01:13:58

  Open "LPT1:" For Output As #1

   Print #1  开始

   Print #1  内容

   Print #1  内容

   Print #1  内容

   Print #1  内容

   Print #1  结束

   Close #1

这个我是实现把数据输出道LPT1接口，实现打印，如果打印数量为16以下没有问题。。。超过50就提示错误
Run-tiem error '52'
Bad file name or number
错误
应该怎么解决啊？

...全文

97 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

王二.麻子 2011-05-27

打赏
举报

应该是打印超出了一页得问题,你这样使用打印机没法自动换页.

如果你的打印机在LPT1,并且系统也能管理你的打印机,建议你用vb自带的printer(默认打印机)对象来打印,超出的部分系统会为你分页的,你也可以自己分页.

在F2对象浏览器里面可以看到printer对象的,msdn也有printer对象的说明.

系统安装的所有打印机,可以用printers集合

游子 2011-05-27

打赏
举报

[Quote=引用 8 楼 zdingyun 的回复:]
循环中加句DoEvents
[/Quote]
还是不行啊。。。。

游子 2011-05-27

打赏
举报

[Quote=引用 2 楼 chinayuppie 的回复:]
这样写：

VB code

fnum = FreeFile
Open "LPT1:" For Output As fnum
Print #fnum 开始
Print #fnum 内容
Print #fnum 内容
Print #fnum 内容
Print #fnum 内容
Print #fnum 结束
Close #fnum
[/Quote]
这样也不行。。。

zdingyun 2011-05-26

打赏
举报

循环中加句DoEvents

游子 2011-05-26

打赏
举报

[Quote=引用 6 楼 zdingyun 的回复:]
没见到全部打印的代码,是Open Close内循环还是外循环?
[/Quote]
外循环的。。。在另一个循环内调用这个打印过程。

zdingyun 2011-05-26

打赏
举报

没见到全部打印的代码,是Open Close内循环还是外循环?

游子 2011-05-26

打赏
举报

[Quote=引用 4 楼 nxslwh 的回复:]
引用 3 楼 zdingyun 的回复:
引用楼主 nxslwh 的回复:
这个我是实现把数据输出道LPT1接口，实现打印，如果打印数量为16以下没有问题。。。超过50就提示错误
Run-tiem error……

斗胆问下LZ,打印数量为16以下没有问题。。。超过50就提示错误如何理解或解释?

我这是一个循环打印，因为每次打印的内容是不停在变的。。。所以不停的循环打印
[/Quote]
也就是循环50次以下没有问题。。超过50次就出现这个问题

游子 2011-05-26

打赏
举报

[Quote=引用 3 楼 zdingyun 的回复:]
引用楼主 nxslwh 的回复:
这个我是实现把数据输出道LPT1接口，实现打印，如果打印数量为16以下没有问题。。。超过50就提示错误
Run-tiem error……

斗胆问下LZ,打印数量为16以下没有问题。。。超过50就提示错误如何理解或解释?
[/Quote]
我这是一个循环打印，因为每次打印的内容是不停在变的。。。所以不停的循环打印

zdingyun 2011-05-26

打赏
举报

[Quote=引用楼主 nxslwh 的回复:]
这个我是实现把数据输出道LPT1接口，实现打印，如果打印数量为16以下没有问题。。。超过50就提示错误
Run-tiem error……
[/Quote]

斗胆问下LZ,打印数量为16以下没有问题。。。超过50就提示错误如何理解或解释?

booksoon 2011-05-26

打赏
举报

这样写：



fnum = FreeFile

Open "LPT1:" For Output As fnum

Print #fnum 开始

Print #fnum 内容

Print #fnum 内容

Print #fnum 内容

Print #fnum 内容

Print #fnum 结束

Close #fnum