مبتدی: تشخیص پرینتر با استفاده از ویژوال بیسیک

یک پروژه از نو استاندارد در vb باز کنید و با استفاده از کد زیر در ویژوال بیسیک میتوان تشخیص داد که پرینتری بر روی سیستم نصب است یا خیر و در صورت نصب بودن پرینتر نوع آن را با استفاده از msgbox نشان دهد :

کد زیر را در command نوشته

Private Sub Command1_Click()
On Error Resume Next
Dim pr As String
pr = Printer.DeviceName
If Err.Number Then
MsgBox "بر روی سیستم پرینتر نصب نیست"
Else
MsgBox "بر روی سیستم پرینتر نصب است" + pr
End If
End Sub

استفاده از خاصیت printer.devicename و متغیر pr