[问题求助] vbs如何实现：一张一张非连续打印某个word文件的某几页？

ygqiang

vbs如何实现：一张一张非连续打印某个word文件的某几页？

xp或win7系统环境下，
运行vbs，提示输入哪几页，比如输入：2或者2-4，8或者3-6
打印机开机打印一也，打印完毕，停顿5-8秒，继续打印下一页。。。
打印机一张一张非连续打印，始终是停顿5-8秒，再打印下一页。

输入页面范围以后，后面默认打印就行，不需要弹出任何提示窗口。

ygqiang

回复 2# yu2n


    1，能否弹出窗口提示，手动输入页面范围？
2，打印出来1页，停顿5到8秒，再继续打印后续的页面，一直这样停顿打印。

ygqiang

回复 2# yu2n


    还有个问题，这个vbs代码，是如何指定打印哪个/哪几个word文件的？

ygqiang

回复 5# yu2n


    多谢。win7 64，测试有错误。

行37   字符2
远程服务器不存在或不可用：oWord.Visible
代码：800a01ce

ygqiang

回复 7# yu2n


    对啊，15行代码，已经修改为自己的了。

strDoc = "C:\1.doc"

ygqiang

回复 7# yu2n


win7 64系统本地安装打印机。
    xp系统，通过局域网共享这个打印机。
测试代码可以打印。
但是输入页数1，3，是连续打印2页。并没有间隔5秒打印。

还有个小问题。
strDoc = "C:\1.doc"，这个修改为strDoc = "1.doc"

是不是默认打印vbs当前目录下的1.doc文件？谢谢

ygqiang

回复 10# yu2n


    多谢。搞定了。

        strDoc = "C:\1.doc"                '要列印的 DOC 檔路徑
        lngSecond = 20         '每頁列印延時--20秒