Untuk merubah default printer pada saat runtime di VB sangat sederhana. ikuti langkah berikut ini :
1. Buat satu file project di VB
2. Lalu tambahkan satu tombol button
3. reference ke c:\windows\system32\wshom.ocx
4. tambahkan kode Program berikut ini
Private Sub Command1_Click()
Dim MyPrinter As New WshNetwork
MsgBox "Printer yg aktif sekarang -> " & Printer.DeviceName
MyPrinter.SetDefaultPrinter ("hp color LaserJet 2550 PCL 6") '
MsgBox "Printer yg aktif sekarang ->" & Printer.DeviceName
End Sub
Subscribe to:
Posts (Atom)
-
Jauh sebelum mengenal 'football table' sewaktu kanak-kanak sekitar akhir tahun 70 an, anak-anak di beberapa daerah pernah memiliki p...
-
Photo kenang-kenangan Musyarawah Besar Warga Kalimantan Se sumatera Utara, September 1956. gambar ini merupakan hasil scanner dari poster yg...
-
Musim hujan tiba, namun ada hal yang kadang menjengkelkan usai hujan reda, masalahnya sering munculnya laron atau kadang disebut juga anai-...