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:
Post Comments (Atom)
-
Photo kenang-kenangan Musyarawah Besar Warga Kalimantan Se sumatera Utara, September 1956. gambar ini merupakan hasil scanner dari poster yg... -
Aku semakin penasaran, kenapa bisa terserang strook! Itu yang selalu masih tanda tanya dibatinku tidak percaya, apakah dokter salah diagnos... -
Pewangi ruangan ataupun airfresh tidak selamanya ampuh untuk menghilangan bau yang menyengat dalam mobil (seperti bau durian, amis ikan dl...
No comments:
Post a Comment