Memeriksa Printer Apakah Sudah Terinstal atau Belum

Gimana yah caranya memeriksa sebuah komputer yang sudah terinstall printer dan yang belum..??

Nah pada Thread kali ini saya akan memberikan source sederhana untuk masalah diatas..
source ini akan tampil dalam bentuk message.. berikut sourcenya:

1. Buat sebuah Public pada general seperti dibawah ini:

Public Function IsPrinterInstalled() As Boolean
Dim strDummy As String
strDummy = Printer.DeviceName
If Err.Number Then
PrinterInstalled = False
Else
PrinterInstalled = True
End If
End Function

2. Masukan Code seperti di bawah ini pada form_load

Private Sub Form_Load()
If IsPrinterInstalled Then
MsgBox "Printer terinstall di PC Anda!", vbInformation, "Terinstall"
Else
MsgBox "Printer belum terinstall di PC Anda!", vbCritical, "Belum Terinstall"
End If
End Sub


Semoga Thread ini dapat bermanfaat ya.. ^.^

Posted in: source code vb