Cara Memeriksa Printer Terinsall Di Komputer VB6

Berikut ini adalah cara memeriksa apakah printer terinstall atau tidak di komputer menggunakan visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form.
2. Copy-kan coding ini ke editor form yang bertalian.

          Public Function IsPrinterInstalled() As Boolean
          On Error Resume Next

          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

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module