Sub Test() Dim bObjectsToImage As Boolean With ActiveDocument.PrintSettings With .Trapping bObjectsToImage = .ObjectsToImage .ObjectsToImage = True End With .ShowDialog .Trapping.ObjectsToImage = bObjectsToImage End WithEnd Sub