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