Dovrebbe essere di default

prova questo codice
codice:
Option Explicit

Private Sub Form_Load()

Dim m_Prn                         As Printer
Dim s                             As String

  For Each m_Prn In Printers
   
    s = "DeviceName = " & m_Prn.DeviceName & vbCrLf
    s = s & "Port = " & m_Prn.Port & vbCrLf
    MsgBox s, vbInformation, "elenco stampanti"
    
  Next m_Prn

End Sub