التعامل مع Parallel Port وSerial Port

السلام عليكم

ارجو ان يفيد هذا الكود

Dim P As Object
gprinter1 = False
    gprinter2 = False
For Each P In Printers
If P.Port = "LPT1:" Then
gprinter1 = True
       End If
       If P.Port = "LPT2:" Then
          gprinter2 = True
       End If
    Next P
    
    If Not gprinter1 Then
       MsgBox "لا يوجد طابعة"
    End If

السلام عليكم

شكرا جزيلا اخ HaithamNazzal

الكود خاص بالتعامل مع الطابعة

انا اريد شىء متعمق اكثر بحيث استطيع التعامل مع اى دائرة خارجية من خلال Parallel Port وSerial Port