Sub Test() With ActiveDocument.PrintSettings.Options .RasterizePage = True .RasterizeResolution = 300 End With ActiveDocument.PrintOutEnd Sub