Cek Printer (VB 6.0)

Berikut ini saya bagikan lagi sebuah kode program VB 6.0 (Visual Basic 6.0) kepada agan-agan semua untuk memeriksa apakah printer telah terinstall di windows atau tidak. Biasanya fungsi ini banyak digunakan pada program kasir, sebelum mencetak struk penjualan program kasir akan mengecek apakah printer ada atu tidak untuk mencetak struk tersebut.

Ok, langsung saja ke langkah pembuatanya.
Berikut langkah-langkahnya.

1. Buat Project VB 6.0 baru.
2. Tambahkan sebuah Commandbutton pada Form yang aktif.
3. Atur Properties Commandbutton Name=cmdCek dan Caption=Cek Printer.
4. Buat Function baru dengan kode di bawah ini.

Function PrinterTerinstall() As Boolean
    On Error Resume Next
    Dim nmDevice As String
    
    nmDevice = Printer.DeviceName
    If Err.Number Then
        PrinterTerinstall = False
    Else
        PrinterTerinstall = True
    End If
End Function

5. Klik 2x tombol "Cek Printer" dan pada cmdCek_Click() ketikkan kode di bawah ini.

If PrinterTerinstall = True Then
MsgBox "Printer telah terinstall dengan nama " & Printer.DeviceName, vbInformation, "Info"
Else
MsgBox "Printer belum terinstall.", vbCritical, "Error"
End If

6. Jalankan program dan lihat hasilnya. Selesai dan terima kasih.

Untuk contoh programnya Anda bisa mendownloadnya disini.