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