打印过的文档自动删除

'打印过的文档自动删除

在Thisworkbook中写如下代码：

Public m As Integer

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    If m = 1 Then
        Application.DisplayAlerts = False
        ActiveWorkbook.ChangeFileAccess xlReadOnly
        Kill ActiveWorkbook.FullName
        ThisWorkbook.Close False
        Application.DisplayAlerts = True
    End If
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    m = 1
End Sub

Private Sub Workbook_Open()
    m = 0
End Sub