[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

回复 15# jyswjjgdwtdtj

谢谢老师 没有打印操作

TOP

本帖最后由 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

TOP

回复 13# jyswjjgdwtdtj


    谢谢老师 没有执行打印

TOP

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

回复 12# FU586097
  1. const docfilename="c:\1.doc"
  2. const wd=3  '星期几
  3. const t=32 '第几分钟
  4. const h=19 '几点钟
  5. do
  6. if weekday(date)=(wd mod 7)+1 then
  7. do
  8. if hour(time)=h and minute(time)=t then
  9. print docfilename
  10. exit do
  11. end if
  12. wscript.sleep 60000
  13. loop
  14. end if
  15. wscript.sleep 60*60*24*1000
  16. loop
  17. sub print(docfilename)
  18. Dim wdApp, Doc
  19. Set wdApp = CreateObject("Word.Application")
  20. wdApp.Visible = False
  21. Set Doc = wdApp.Documents.Open(docfilename)
  22. Doc.PrintOut
  23. Doc.Close
  24. end sub
复制代码
你时间没到肯定不会执行啊  
还有你干嘛改”日”啦! 你改成7就不行吗

TOP

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

TOP

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

回复 6# jyswjjgdwtdtj


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

TOP

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

TOP

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

QQ 20147578

TOP

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

TOP

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

回复 6# jyswjjgdwtdtj

谢谢老师   星期天怎样表示

TOP

回复 5# FU586097


    改了一下 你看看

TOP

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

TOP

回复 3# FU586097


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

评分人数

TOP

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

回复 2# jyswjjgdwtdtj


    老师 文档是在D盘  谢谢

TOP

返回列表