' 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