Private Sub AcadDocument_EndPlot(ByVal DrawingName As String)
    ' Этот пример перехватывает событие EndPlot.
    '
    ' Это событие вызвано, когда рисунок заканчивает печать.
    '
    ' Чтобы вызвать это событие: Распечатайте рисунок и ждите окончание печати

    ' Используйте переменную "DrawingName", чтобы определить, какой
    ' рисунок распечатан
    MsgBox "Рисунок только что закончил печать! "
End Sub