21 lines
746 B
VB.net
21 lines
746 B
VB.net
|
|
Imports System.Drawing.Printing
|
|
|
|
Public Class frmPrinterselect
|
|
Private Sub frmPrinterselect_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
For Each printer As String In PrinterSettings.InstalledPrinters
|
|
lbprinter.Items.Add(printer)
|
|
Next printer
|
|
Dim oPS As New System.Drawing.Printing.PrinterSettings
|
|
lblDefaultprinter.Text = oPS.PrinterName
|
|
End Sub
|
|
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Dim a As New Printing.PageSettings()
|
|
a.PrinterSettings.PrinterName = Me.lbprinter.SelectedItem
|
|
Shell(String.Format("rundll32 printui.dll,PrintUIEntry /y /n ""{0}""", Me.lbprinter.SelectedItem))
|
|
End Sub
|
|
|
|
|
|
End Class |