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