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