' ==========================================================
' Drucker auswählen
' ==========================================================
 
Private Sub sevPrinter_Click()
    Dim prt                As Printer
 
    With Me.sevPrinter
       .Tag = .SubItem(.ListIndex, "Port")
       PrinterPort = .SubItem(.ListIndex, "Port")
    End With
 
    For Each prt In Printers
        If prt.DeviceName = sevPrinter Then
           Set Printer = prt
           Printer.FontName = "Verdana"
           Printer.Fontsize = 28
           Printer.FontBold = True
           Printer.FontItalic = True
           Printer.Print "Testzeile"
           Printer.EndDoc
           Exit For
        End If
    Next prt
End Sub