Sub Test() Dim s As String With ActiveDocument.PrintSettings .PostScript.Level = prnPSLevel3 With .Trapping .BlackWidth = 0.6 / 72 * 254000 .Width = 0.35 / 72 * 254000 End With .ShowDialog End WithEnd Sub