PrintOptions.GrayResolution

Property GrayResolution As Long

The GrayResolution property returns or sets the resolution of grayscale bitmaps for printing.

The following code example activates downsampling for color, grayscale, and monochrome bitmaps. It then sets the resolution and prints the document.

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.PrintOut 
End Sub