excel 打开后自动打印

 

打开一个命名为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：写上这两参数，就会自动保存自动打印，不然会弹出对话框叫你保存，还是需要人工干预