sxypeace 2019-09-11 15:36 采纳率: 0%
浏览 402

VB 代码,用FileSystemObject.CopyFile 将Prn 文件发送到网络打印机, 失败返回File not found

代码片段

on error GoTo Err_01
Set DocObj = New Scripting.FileSystemObject 
ls_txtfile = "H:\groups\mars\sktfhuat\worksheet\34\92\test11.prn"
as_printer_queue = "\\cchn01m09\521dn"
DocObj.CopyFile ls_txtfile, as_printer_queue     '行1
DocObj.CopyFile ls_txtfile, as_printer_queue     '行2

Err_01:
err_info =err_info + err.Description
Resume Next

代码大致意思是这样,但是当执行 "行1"时报 file not found 错误,事实上文件是存在的,

resume next 后,继续执行"行2", 打印机成功打印了!

为啥啊! 同一个文件同一个打印机, 真是搞不明白了.
系统是 Windows server 2008 R2.

求大神指导!

2020-01-07 更新

弃用FileSystemObject ,改用vb直接call bat发送prn文件,打印成功

shell "sendprn.bat " + prnfile +" " + printer

sendprn.bat 代码

copy %1 %2
  • 写回答

1条回答 默认 最新

  • threenewbee 2019-09-11 18:11
    关注

    加上一个延迟看看,可能执行在上面的时候还没有放入队列

    可以用Sleep函数加延迟

    评论

报告相同问题?

悬赏问题

  • ¥15 这个电路是如何实现路灯控制器的,原理是什么,怎么求解灯亮起后熄灭的时间如图?
  • ¥15 matlab数字图像处理频率域滤波
  • ¥15 在abaqus做了二维正交切削模型,给刀具添加了超声振动条件后输出切削力为什么比普通切削增大这么多
  • ¥15 ELGamal和paillier计算效率谁快?
  • ¥15 file converter 转换格式失败 报错 Error marking filters as finished,如何解决?
  • ¥15 Arcgis相交分析无法绘制一个或多个图形
  • ¥15 关于#r语言#的问题:差异分析前数据准备,报错Error in data[, sampleName1] : subscript out of bounds请问怎么解决呀以下是全部代码:
  • ¥15 seatunnel-web使用SQL组件时候后台报错,无法找到表格
  • ¥15 fpga自动售货机数码管(相关搜索:数字时钟)
  • ¥15 用前端向数据库插入数据,通过debug发现数据能走到后端,但是放行之后就会提示错误