PrintOptions.MonoResolution

Property MonoResolution As Long

The MonoResolution property returns or sets the resolution of monochrome 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