Sub Test() Dim intPlateCounter As Integer With ActiveDocument.PrintSettings.Separations For intPlateCounter = 1 To .Plates.Count - 1 .Plates(intPlateCounter).OverprintGraphic = False .Plates(intPlateCounter).OverprintText = False Next intPlateCounter End WithEnd Sub