Public Function GetPrinter(ByRef frmOwner As System.Windows.Forms.Form, _
  Optional ByRef PrintFlags As Short = 0) As Printer
        Dim Printer As Printer
        Dim prnDialog As PrintDialog
        Dim prnDocument As PrintDocument
        Dim objPrinter As Printer
 
        Cursor.Current = Cursors.WaitCursor
 
        Printer = Nothing
        prnDialog = New PrintDialog
        prnDocument = New PrintDocument
        ' PrintDocument brauchen wir, um an die Eigenschaften von PrintDialog 
        ' zu kommen 
        prnDialog.Document = prnDocument
 
        If prnDialog.ShowDialog(frmOwner) = Windows.Forms.DialogResult.OK Then
            If prnDialog.PrinterSettings.PrinterName <> "" Then
 
                For Each objPrinter In Printers
                    '
                    ' Gehe alle verfügbaren Drucker durch
                    '
 
                    If objPrinter.DeviceName = _
                      prnDialog.PrinterSettings.PrinterName Then
 
                        Printer = New Printer
                        Printer = objPrinter
                        prnDocument = prnDialog.Document
 
                        Exit For
 
                    Else
 
                        Printer = Nothing
 
                    End If
 
 
                Next
 
            End If
            If Not Printer Is Nothing Then
 
                ' Eigentlich sollten dann auch die Eigenschaften des 
                ' Printer-Objekts
                ' mit den ausgewählten Einstellungen im PrinterDialog 
                ' übereinstimmen
 
                ueDeviceName = Printer.DeviceName
 
                uePaperBin = _
                  prnDocument.DefaultPageSettings.PaperSource.SourceName
 
                Printer.PaperBin = CShort( _
                  prnDocument.DefaultPageSettings.PaperSource.RawKind)
 
                ueCopies = CStr(prnDocument.PrinterSettings.Copies)
 
                Printer.Copies = prnDocument.PrinterSettings.Copies
 
                '1: Keiner
                '2: Duplex
 
                ueDuplex = CStr(IIf(prnDocument.PrinterSettings.Duplex > 1, _
                  "Duplex", "Einfach"))
                Printer.Duplex = prnDocument.PrinterSettings.Duplex
 
                ueOrientation = resolvePRNPapierausrichtung( _
                  prnDocument.DefaultPageSettings.Landscape)
                Printer.Orientation = IIf(Not _
                prnDocument.DefaultPageSettings.Landscape, vbPRORPortrait, _
                vbPRORLandscape)
                ueQuality = resolvePRNQualitaet( _
                prnDocument.DefaultPageSettings.PrinterResolution.Kind)
                Printer.PrintQuality = _
                prnDocument.DefaultPageSettings.PrinterResolution.Kind
 
            End If
 
 
 
 
        Else
 
            Printer = Nothing
 
 
        End If
 
        prnDialog.Dispose()
        prnDocument.Dispose()
        prnDocument = Nothing
        prnDialog = Nothing
 
        Cursor.Current = Cursors.Default
 
        Return Printer
    End Function