Sub Test() Dim intCounter As Integer With ActiveDocument.PrintSettings.Trapping.Layers For intCounter = 1 To .Count - 1 .Item(intCounter).TrapType = prnLayerTransparent Next intCounter End WithEnd Sub