Sub Test() With ActiveDocument.PDFSettings .Author = "John Doe" .ColorMode = pdfCMYK .ComplexFillsAsBitmaps = True .FountainSteps = 10 End With ActiveDocument.PublishToPDF "C:\Temp\Document.pdf"End Sub