untuk teman - teman yang sedang belajar pemrograman visual basic sedikit saya bagikan ilmu saya yaitu mengecek apakah dikomputer anda sudah terinstal printer atau belum. silahkan pelajari source code dibawah ini
‘Persiapan: 1. Buat 1 Project baru dengan 1 Form.
‘ 2. Copy-kan coding ini ke editor form yang bertalian.
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
Private Sub Form_Load()
If IsPrinterInstalled Then
MsgBox “Printer terinstall di komputer Anda!”, vbInformation, “Terinstall”
Else
MsgBox “Printer belum terinstall di komputer Anda!”, vbCritical, “Belum Terinstall”
End If
End Sub
semoga bermanfaatnya.
diposting oleh ; rosoft_silaen
source : sugara.wordpress.com
