Sub Test() Dim bDownSampleColor As Boolean Dim bDownSampleGray As Boolean Dim bDownSampleMono As Boolean Dim DrawPrintOptions As PrintOptions Set DrawPrintOptions = ActiveDocument.PrintSettings.Options With DrawPrintOptions 'save the current setting bDownSampleColor = .DownsampleColor bDownSampleGray = .DownsampleGray bDownSampleMono = .DownsampleMono 'change the setting .DownsampleColor = True .DownsampleGray = True .DownsampleMono = False End With 'print the document ActiveDocument.PrintOut 'restore the downsample setting With DrawPrintOptions .DownsampleColor = bDownSampleColor .DownsampleGray = bDownSampleGray .DownsampleMono = bDownSampleMono End WithEnd Sub