With sevGrid1
  .AddNew 1
  .CellNew("BinDrucker") = sevPrinter
End With

Private Sub sevGrid1_StartEditMode(ByVal nRow As Long, ByVal nCol As Long, _
  sText As String, bCancel As Boolean)
 
  Dim sKey As String
 
  sKey = sevGrid1.Columns(nCol).Key
  If sKey = "BinDrucker" Then
    If Len(sText) = 0 Then sText = Printer.DeviceName
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de