Imports System.Drawing.Printing
 
Public Class Form1
 
   Private Printer As New PrintDocument
 
   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
     Handles Me.Load
      Label1.Text = Printer.DefaultPageSettings.PrinterSettings.PrinterName
   End Sub
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      If SetDefaultPrinter(TextBox1.Text) Then
         Label1.Text = Printer.DefaultPageSettings.PrinterSettings.PrinterName
      End If
   End Sub
 
   Private Function SetDefaultPrinter(ByVal sPrinter As String) As Boolean
      Dim oWScript As Object = CreateObject("WScript.Network")
 
      Try
         oWScript.SetDefaultPrinter(sPrinter)
         Return True
      Catch ex As Exception
         MsgBox(ex.Message)
         Return False
      Finally
         oWScript = Nothing
      End Try
   End Function
 
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control