Dim prt As New Printing.PrinterSettings
prt.PrinterName = ComboBox1.Text

    ' Standarddrucker-Wechsel unter Win2k/XP
    Private Declare Function SetPrinterDef Lib "winspool.drv" Alias _
      "SetDefaultPrinterA" (ByVal lpPrinter As String) As Integer
 
    ' Standarddrucker-Wechsel
    Public Function SetPrinterDefault(ByVal sPrinter As String) As Boolean
 
        Dim nResult As Integer
        ' Windows 2000 / XP
        nResult = SetPrinterDef(sPrinter)
        SetPrinterDefault = (nResult <> 0)
 
    End Function

  SetPrinterDefault(My.Forms.frmDrücken.cmbDrücker.Text)

mfgMeik MillerMein beste Code:If then

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