Sub Test() Dim DrawPrnOptions As PrintOptions Set DrawPrnOptions = ActiveDocument.PrintSettings.Options With DrawPrnOptions MsgBox "The current color mode is " & .ColorMode End WithEnd Sub