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