Sub Test() Dim bConformToDSC As Boolean 'save current value With ActiveDocument.PrintSettings.PostScript bConformToDSC = .ConformToDSC 'set new value .ConformToDSC = True End With 'print document ActiveDocument.PrintOut 'restore saved value With ActiveDocument.PrintSettings.PostScript .ConformToDSC = bConformToDSC End WithEnd Sub