PrintOptions.GrayResolution

Property GrayResolution As Long

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

The following VBA 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