Sub Test() Dim DrawPrintOptions As PrintOptions Set DrawPrintOptions = ActiveDocument.PrintSettings.Options With DrawPrintOptions .JobInformation = True .AppInfo = True .DriverInfo = True .PrintJobInfo = False .FontInfo = True .SepsInfo = False End With 'print the document ActiveDocument.PrintOutEnd Sub