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