Sub Example_PrintSpoolerPath()
    'Этот пример возвращает текущую установку PrintSpoolerPath. Затем 
    'изменяет значение и наконец сбрасывает значение назад к оригинальной 
    'установке.
    
    Dim preferences As AcadPreferences
    Dim currPrintSpoolerPath As String
    Dim newPrintSpoolerPath As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    'Получите текущее значение PrintSpoolerPath
    currPrintSpoolerPath = preferences.Files.PrintSpoolerPath
    MsgBox "Текущее значение для PrintSpoolerPath " & currPrintSpoolerPath, vbInformation, "PrintSpoolerPath Пример"
    
    'Измените значение для PrintSpoolerPath
    newPrintSpoolerPath = "TestPrintSpoolerPath"
    preferences.Files.PrintSpoolerPath = newPrintSpoolerPath
    MsgBox "Новое значение для PrintSpoolerPath " & newPrintSpoolerPath, vbInformation, "PrintSpoolerPath Пример"
    
    'Сбросьте PrintSpoolerPath к его оригинальному значению
    preferences.Files.PrintSpoolerPath = currPrintSpoolerPath
    MsgBox "Значение PrintSpoolerPath сброшено к " & currPrintSpoolerPath, vbInformation, "PrintSpoolerPath Пример"
End Sub