Sub Test() With ActiveDocument.PrintSettings .PostScript.Level = prnPSLevel3 .Separations.Enabled = False .Trapping.Enabled = True .ShowDialog MsgBox "The current trapping width is " & Round((.Trapping.Width / 254000) * 72, 1) & " pt" End WithEnd Sub