Private Sub sevGrid1_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
                                  oComboBox As sevDataGrid2.EditComboBox)
 
     With sevGrid1
        If .Columns(nCol).Key = "BinDrucker" Then
           With oComboBox
              .ColumnAdd , "Druckername", 4000
              .ColumnAdd , "Port", 800
              .AddItem Printer.DeviceName & vbTab & Printer.Port
              sevPrinter = Printer.DeviceName
              For Each pri In Printers
                 If pri.DeviceName <> Printer.DeviceName Then
                    .AddItem pri.DeviceName & vbTab & pri.Port
                 End If
              Next pri
           End With
        End If