Sub Test() With ActiveDocument.PDFSettings .IncludeBleed = True .Bleed = CorelScriptTools.FromInches(1) End With ActiveDocument.PublishToPDF "C:\MyDocument.pdf"End Sub