Sub Test() With ActiveDocument.PDFSettings CropMarks = True DensitometerScales = True FileInformation = True RegistrationMarks = True End With ActiveDocument.PublishToPDF "C:\MyDocument.pdf" End Sub