Sub Test() With ActiveDocument.PDFSettings .DownsampleColor = True .DownsampleGray = True .DownsampleMono = True .ColorResolution = 72 .GrayResolution = 72 .MonoResolution = 150 End With ActiveDocument.PublishToPDF "C:\MyDocument.pdf"End Sub