隔10秒钟打印一张.docx

隔10秒钟打印一张.docx

《隔10秒钟打印一张.docx》由会员分享，可在线阅读，更多相关《隔10秒钟打印一张.docx（1页珍藏版）》请在冰点文库上搜索。

隔10秒钟打印一张

SubPrintzhang（）

page=1

Every

EndSub

SubRet（）

EndSub

SubEvery（）

alertTime=Now+TimeValue（"00:

00:

10"）

Application.OnTimealertTime,"EventMacro1"

EndSub

SubEventMacro1（）

'MsgBox（page）

ActiveDocument.ActiveWindow.PrintOut_

Range:

=wdPrintFromTo,From:

="s"&page,To:

="s"&page

page=page+1

Ifpage<3Then

Every

Else

EndIf

EndSub