API Documentation > CorelDRAW > 2025-v26 > PrintOptions > IPrnVBAPrintOptions
PrintOptions.GrayResolution property
Specifies the downsampling resolution for grayscale bitmaps
Syntax:
Property Get GrayResolution() As Long
Property Let GrayResolution(ByVal Value As Long)
Remarks:
The GrayResolution property returns or specifies the resolution of grayscale bitmaps for printing.
Examples:
The following VBA example activates downsampling for color, grayscale, and monochrome bitmaps. It then specifies 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