Sub Test() Dim DrawPrintOptions As PrintOptions Set DrawPrintOptions = ActiveDocument.PrintSettings.Options With DrawPrintOptions 'set all downsampling to True .DownsampleColor = True .DownsampleGray = True .DownsampleMono = True 'set the resolution .ColorResolution = 96 .GrayResolution = 150 .MonoResolution = 600 End With 'print the document ActiveDocument.PrintOutEnd Sub