Sub Test() ActiveDocument.PDFSettings.FountainSteps = 100 ActiveDocument.PublishToPDF "C:\MyDocument.pdf"End Sub