Sub Test() MsgBox "The current printer is:" & vbCr & _ ActiveDocument.PrintSettings.Printer.NameEnd Sub