[日积月累]：下面代码可以知道用户打印是否成功

newlifewby

''从AutoDesk网站上找到的,觉得有用,分享给大家

'VBA中下面代码可以知道用户打印结果
Private Sub AcadDocument_EndPlot(ByVal DrawingName As String)
    If ThisDrawing.GetVariable("Diastat") = 1 Then
        MsgBox "Plot Sent", vbOKOnly    '知道已经打印成功
    Else
        MsgBox "Plot Cancelled", vbOKOnly   '知道已经打印取消
    End If
    ' 进一步探讨
    ' ? 如何知道打印内容,最好能返回结果集合, 或者打印窗口坐标.
    '................
    '   请高手赐教
End Sub