Sub TestPDF() With ActiveDocument.PrintSettings.PostScript .PDFStartup = prnPDFOutlines .PDFBookmarks = True .PDFHyperlinks = True End With End Sub