How do I find the default/current printer?

Hayelp! Dost anyone know the answer to this verily age-old question? I should be mightily grateful for the truth regarding the matter (and I reckon it's a pretty simple truth at that...)

Printer object has all the details you want.

Code:

---

Private Sub Command1_Click()
    Dim strMsg As String
   
    With Printer
        strMsg = "Current (Default) Printer: " & .DeviceName & vbCrLf
        strMsg = strMsg & "Current Port: " & .Port & vbCrLf
        MsgBox strMsg
    End With
End Sub

---

Thanks Serge, sorted.