Vb.Net: Mengontrol Default Printer

Klo kita membuat aplikasi transaksi yang eksklusif mengirim data ke printer (print slip) mirip pada aplikasi kasir (POS), aplikasi akan eksklusif melakukan perintah print/cetak ke default printer sehingga tidak perlu menentukan printer lagi saat mencetak slip. Sebenarnya setting default printer gampang saja dengan masu ke control panel, Device and Printer mirip pola gambar di bawah ini (window 8). Kita tinggal pilih printer mana yang ingin menjadi default, klik kanan kemudian pilih Set as default printer. Tetapi aplikasi akan lebih user friendly jikalau default printer mampu langsung di setting dalam aplikasi tersebut. Karenanya dalam potensi kali ini Rani mau buat sebuah teladan code untuk setting printer default dengan code VB.NET. UI Code: Imports System.Drawing.Printing Public Class Form1     Private Sub Form1_Load( ByVal sender As System.Object, _                 ByVal e As System.EventArgs) Handles MyBase .Load         Dim strInstalledPrinters As String         Dim prntDoc As New PrintDocument         'cek apakah ada printer terinstall         If PrinterSettings.InstalledPrinters.Count = 0 Then             MsgBox( "No printer installed" )             Exit Sub         End If         'tampilkan printer terinstall di list combobox         For Each strInstalledPrinters In PrinterSettings.InstalledPrinters             ComboBox1.Items.Add(strInstalledPrinters)         Next strInstalledPrinters         'tampilkan default printer ketika ini di text combobox         ComboBox1.Text = prntDoc.PrinterSettings.PrinterName         Button1.Text = "Set Default Printer"     End Sub     'Fungsi untuk mengontrol printer selaku default     Function SetDefaulPrinter( ByVal strPrinterName As String ) As Boolean         Dim strCurrPrinter As String         Dim WsNetwork As Object         Dim prntDoc As New PrintDocument         strCurrPrinter = prntDoc.PrinterSettings.PrinterName         WsNetwork = Microsoft.VisualBasic.CreateObject( "WScript.Network" )         Try             WsNetwork.SetDefaultPrinter(strPrinterName)             prntDoc.PrinterSettings.PrinterName = strPrinterName             'set default bila nama printer valid (terinstall)             If prntDoc.PrinterSettings.IsValid Then                 Return True             Else                 WsNetwork.SetDefaultPrinter(strCurrPrinter)                 Return False             End If         Catch ex As Exception             WsNetwork.SetDefaultPrinter(strCurrPrinter)             Return False         Finally             WsNetwork = Nothing             prntDoc = Nothing         End Try     End Function     Private Sub Button1_Click( ByVal sender As System.Object, _                 ByVal e As System.EventArgs) Handles Button1.Click         If SetDefaulPrinter(ComboBox1.Text) = True Then             MsgBox( "Printer default menjadi " & ComboBox1.Text)         Else             MsgBox( "Nama Printer " & ComboBox1.Text & " tidak valid!" )         End If     End Sub End Class Runtime: List printeryang tersedia (terinstall) akan tampil di list combobox. Pilih salah satu item list lalu klik tombo "Set Default Printer" Kita lihat hasil nya di device and printer, default printer akan berubah sesuai pilihan.
Sumber http://rani-irsan.blogspot.com