Sub Test() With ActiveDocument With .PrintSettings .Separations.Enabled = True .ShowDialog End With End WithEnd Sub