Private Sub Form_Load()
On Error Resume Next
 Dim p As VB.Printer
 With Me
    .Width = Screen.Width / 2
    .AutoRedraw = True
 End With
 
 For Each p In VB.Printers
    Me.Print "(Printer Name: " & p.DeviceName & ")(Printer Driver: " & _
      p.DriverName & ")(Port: " + p.Port & ")"
 Next p
End Sub

Gr??e Kenjiro