Dim printDlg As PrinterDlg
Set printDlg = New PrinterDlg
printDlg.PrinterName = Combo1.Text
printDlg.DriverName = Printer.DriverName
printDlg.Port = Printer.Port
 
printDlg.PaperBin = Printer.PaperBin
 
printDlg.Flags = VBPrinterConstants.cdlPDNoSelection _
                 Or VBPrinterConstants.cdlPDNoPageNums _
                 Or VBPrinterConstants.cdlPDReturnDC
Printer.TrackDefault = False
 
If Not printDlg.ShowPrinter(Me.hWnd) Then
    Debug.Print "Cancel Selected"
    Exit Sub
End If
 
Dim NewPrinterName As String
Dim objPrinter As Printer
Dim strsetting As String
 
NewPrinterName = UCase$(printDlg.PrinterName)
If Printer.DeviceName <> NewPrinterName Then
    For Each objPrinter In Printers
       If UCase$(objPrinter.DeviceName) = NewPrinterName Then
            Set Printer = objPrinter
 
       End If
    Next
End If
 
 
Printer.Copies = printDlg.Copies
Printer.Orientation = printDlg.Orientation
Printer.ColorMode = printDlg.ColorMode
Printer.Duplex = printDlg.Duplex
Printer.PaperBin = printDlg.PaperBin
Printer.PaperSize = printDlg.PaperSize
Printer.PrintQuality = printDlg.PrintQuality
 
 
 
With Printer
 
imageviewer1.PrintImage2Printer(printer.devicename)
 
End With
Exit Sub
End Sub
 
 
was mache ich da falsch ?
 
Vielen Dank fuer Eure Hilfe