Sub Test() With ActiveDocument MsgBox "The current value for AutoSpreadFixed is " & _ .PrintSettings.Separations.AutoSpreadFixed End WithEnd Sub