代码片段
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