How do I find the default/current printer?

[coox]

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...)

[Serge]

Printer object has all the details you want.

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

[coox]

Thanks Serge, sorted.