Sub Test() With ActiveDocument.PrintSettings With .Trapping .InternalImageTrapping = False End With .ShowDialog End WithEnd Sub