打开一个命名为auto_open的宏
auto_open 写在模块1里
宏的内容如下:
Sub auto_open() '设置一个自动运行的宏——auto_open
Application.OnTime TimeValue("08:30:00"), "tx" '设置提醒时间——08:30:00(可以根据需要修改),设置调用提醒宏——tx。
Application.OnTime TimeValue("08:52:00"), "tx" '再设置提醒一次。
End Sub
Sub tx() '设置一个显示提醒消息的宏(名称要与上述自动运行宏中调用的名称一致)。
Dim prtfileName As String
prtfileName = "e:\\abc.xps"
Sheets("Sheet1").Select
ActiveSheet.PrintOut From:=1, To:=1, PrintToFile:=True, Copies:=1, PrToFileName:=prtfileName
End Sub
PrintToFile:=True,PrToFileName:=prtfileName:写上这两参数,就会自动保存自动打印,不然会弹出对话框叫你保存,还是需要人工干预