批处理之家 - Powered by Discuz! Board

标题: [其他] 批处理怎样定时打印指定文档？ [打印本页]

作者: FU586097 时间: 2023-10-22 05:59 标题: 批处理怎样定时打印指定文档？

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

作者: jyswjjgdwtdtj 时间: 2023-10-22 13:54

本帖最后由 jyswjjgdwtdtj 于 2023-10-22 14:42 编辑

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 时间: 2023-10-22 14:07

本帖最后由 FU586097 于 2023-10-22 14:08 编辑

回复 2# jyswjjgdwtdtj

老师文档是在D盘谢谢

作者: jyswjjgdwtdtj 时间: 2023-10-22 14:11

回复 3# FU586097

那你自己改改呗我不是把文件地址标到脚本头上那个const里了？

作者: FU586097 时间: 2023-10-22 14:22

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

作者: jyswjjgdwtdtj 时间: 2023-10-22 14:43

回复 5# FU586097

改了一下你看看

作者: FU586097 时间: 2023-10-22 14:48

本帖最后由 FU586097 于 2023-10-22 14:56 编辑

回复 6# jyswjjgdwtdtj

谢谢老师星期天怎样表示

作者: FU586097 时间: 2023-10-22 15:02

回复 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

作者: czjt1234 时间: 2023-10-22 15:11

Weekday(Date()) = 1 '星期天

作者: FU586097 时间: 2023-10-22 15:15

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

作者: FU586097 时间: 2023-10-22 15:21

本帖最后由 FU586097 于 2023-10-22 15:22 编辑

回复 6# jyswjjgdwtdtj

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

作者: FU586097 时间: 2023-10-22 15:26

回复 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

作者: jyswjjgdwtdtj 时间: 2023-10-22 15:36

本帖最后由 jyswjjgdwtdtj 于 2023-10-22 15:37 编辑

回复 12# FU586097

const docfilename="c:\1.doc"
const wd=3  '星期几
const t=32 '第几分钟
const h=19 '几点钟
do
if weekday(date)=(wd mod 7)+1 then
do
if hour(time)=h and minute(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
复制代码

你时间没到肯定不会执行啊
还有你干嘛改”日”啦！你改成7就不行吗

作者: FU586097 时间: 2023-10-22 17:11

回复 13# jyswjjgdwtdtj

谢谢老师没有执行打印

作者: jyswjjgdwtdtj 时间: 2023-10-23 19:10

本帖最后由 jyswjjgdwtdtj 于 2023-10-23 19:11 编辑

我也不知道之前那个出了什么问题但这个绝对行
记得加进开机启动
const docfilename="c:\1.doc"
const wd=3 '星期几
const t=32 '第几分钟
const h=19 '几点钟
do
if weekday(date)=(wd mod 7)+1 then
if hour(time)=h and minute(time)=t then
print docfilename
exit do
end if
end if
wscript.sleep 60000
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 时间: 2023-10-24 21:25

回复 15# jyswjjgdwtdtj

谢谢老师没有打印操作

欢迎光临批处理之家 (http://bbs.bathome.net/)