Baca Juga
Cara Mengubah default printer adalah dengan cara : klik Start Menu >> Control Panel>>Printer and Faxes, kemudian pilih salah satu printer, klik kanan dan klik Set as Default Printer.
Nah..., bagaimana caranya apabila pengin melakukan hal tersebut dengan coding visual basic 6.0. Berikut adalah codenya :
Sebelumnya tambahkan 1 buah ListBox dan dua buah Command, kemudian susun dengan posisi sebagai berikut :
COPAS (copy-paste) code-code dibawah ini :
Demikian! semoga bermanfaat...Private Sub list1_Change()Dim prt As Printer
For Each prt In Printers
If prt.DeviceName = "MyPrinterName" Then
Set Printer = prt
Exit For
End If
Next
End Sub
Private Sub Command1_Click()
Dim w As New WshNetwork
w.SetDefaultPrinter (List1.Text)
Set w = Nothing
End Sub
Private Sub Command2_Click()
Dim prt As Printer
List1.Clear
For Each prt In Printers
List1.AddItem prt.DeviceName
Next
End Sub
Private Sub Form_Load()
Command2.Value = True
End Sub
6 Tanggapan
saya endro...makasih atas penjelasannya...karena saya sangat membutuhkan...salam, endro
www.bukaini.com/rapidearning
Terima kasih mas endro atas kunjungannya semoga bermanfaat.
Kang, saya lagi belajar buat program yang menggunakan data report untuk laporannya. yang saya inginkan, ketika saya klik cmdCetak, maka secara otomatis ukuran kertas menyesuaikan bentuk laporan. misalkan saya ingin tampilan layoutnya jadi A4, jadi saya ngga usah atur-atur lagi melalui printernya. mohon bantuannya. Trims
mas saya sudah coba, nah biasanya kan pas kita mendeklarasikan variabel dan setelah kita mengetikkan kata new biasanya muncul sendiri apakah itu integer atau apa... nah anehnya setelah saya ketik dim w as new (spasi) kok ga muncul "WshNetwork"
kira-kira kita harus menambahkan preference apa... thanks ya mas... kesulitan nieh dibantu ya
terimakasih atas bantuannya
ga ada reference tambahan mas. saya juga sama, dititik nggak keluar apa-apanya. :)
References Di Vb "Windows Script Object Model" Harus di Contreng.