Memeriksa Apakah Terdapat Printer Yang Terinstall - Visual B

Di bawah ini merupakan kode untuk memeriksa apakah komputer memiliki printer yang terinstall menggunakan Visual Basic 6, Adapun kode untuk memeriksa printer yang terinstall dalam komputer sebagai berikut:

Public Function IsPrinterInstalled() As Boolean 
    If VB.Printers.Count <= 0 Then
        IsPrinterInstalled = False
        Exit Sub
    Else
        IsPrinterInstalled = True
    End If
End Function 

Atau Anda pun dapat merubah juga kode di atas (agar lebih simple) seperti di bawah ini (hasilnya akan sama):

Public Function IsPrinterInstalled() As Boolean 
    IsPrinterInstalled = (VB.Printers.Count > 0)
End Function