Dim ptrthis As Printer
strip = "192.168.123.3" & strip
For Each ptrthis In Printers
If ptrthis.Port = strip Then Exit For
Next ptrthis
If ptrthis.Port = strip Then
Set Reports(strreport).Printer = ptrthis
Else
Call MsgBox(",,,notword,,,")
End If
اساتذتي الكرام اين المشكلة في الكود