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

    ' Используйте переменную "DrawingName", чтобы определить, какой рисунок будет печататься
    MsgBox "Получен запрос печати для: " & DrawingName

End Sub