Memeriksa Apakah Printer Terinstall di PC
Jun.14, 2008 in
Visual Basic
Apablila kita ingin memeriksa apakah printer telah ter install di komputer kita atau belum,
berikut contoh coddning nya:
Public Function IsPrinterInstalled() As Boolean
‘coding ini shrsnya jika error lanjut saja, sengaja dihilangkan spy dapat diupload ke brinkster
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 PC Anda!”, vbInformation, “Terinstall”
Else
MsgBox “Printer belum terinstall di PC Anda!”, vbCritical, “Belum Terinstall”
End If
End Sub
Tulisan Lain:
Tags: ahhh, atau, belum, Blue, blue star, Cavaliers, contoh, End, False, function, homegoods, ingin, IsPrinterInstalled, jika, komputer, Load, MsgBox, nya, openhouse, palmetto, Russian, russian spy, sengaja, shrsnya, sporting events, spy, spy photo, ter, terinstall, Tix, vbInformation, virginia cavaliers
Leave a Reply