[其他] 批处理怎样定时打印指定文档？

FU586097

在 D:\123\共同.docx 有一个文件  批处理设定每个星期三 上午0800打印一次  谢谢各位老师帮忙

FU586097

回复 2# jyswjjgdwtdtj


    老师 文档是在D盘  谢谢

FU586097

回复 4# jyswjjgdwtdtj
谢谢老师 还有 代表星期三是哪个  有时候需要修改  改为星期五怎样改

FU586097

回复 6# jyswjjgdwtdtj

谢谢老师   星期天怎样表示

FU586097

回复 6# jyswjjgdwtdtj


    老师谢谢  打印机没有打印
const docfilename="D:\123\共同.doc"
const wd=日  '星期几
const t=15 '几点钟
do
if weekday(date)=(wd mod 7)+1 then
do
if hour(time)=t then
print docfilename
exit do
end if
wscript.sleep 60000
loop
end if
wscript.sleep 60*60*24*1000
loop
sub print(docfilename)
Dim wdApp, Doc
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = False
Set Doc = wdApp.Documents.Open(docfilename)
Doc.PrintOut
Doc.Close
end sub

FU586097

回复 9# czjt1234
老师谢谢  麻烦你修改一下  我不懂

FU586097

回复 6# jyswjjgdwtdtj


    老师谢谢  星期天怎样改 改成日  打印机没有打印

FU586097

回复 2# jyswjjgdwtdtj

老师谢谢  改为  星期日  19:32自动打印
怎样改


    const docfilename="c:\1.doc"
const wd=3  '星期几
const t=8 '几点钟
do
if weekday(date)=(wd mod 7)+1 then
do
if hour(time)=t then
print docfilename
exit do
end if
wscript.sleep 60000
loop
end if
wscript.sleep 60*60*24*1000
loop
sub print(docfilename)
Dim wdApp, Doc
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = False
Set Doc = wdApp.Documents.Open(docfilename)
Doc.PrintOut
Doc.Close
end sub

FU586097

回复 13# jyswjjgdwtdtj


    谢谢老师 没有执行打印

FU586097

回复 15# jyswjjgdwtdtj

谢谢老师 没有打印操作