Sub Test() With ActiveDocument.PDFSettings ComplexFillsAsBitmaps = True Halftones = True MaintainOPILinks = False Overprints = True SpotColors = False End With ActiveDocument.PublishToPDF "C:\MyDocument.pdf"End Sub