' Auslesen des Auftragstype Angebot, Rechnung .....
With Me.txtData(coAuftragsType)
    sAuftragsType = .SubItem(.ListIndex, "Modul")
End With
For i = 1 To .Rows
    ' Soll der Auftrag gedruckt werden ???
    If UCase(Trim(.Text(i, "Druck_Auswahl"))) = "JA" Then
        ' Direkt zum Drucker ausgeben
        If DruckenDirekt(sPModul:=sAuftragsType, sPParam1:=.Text(i, _
          "Fakt_Nr_Typ")) Then
            ' DruckStatus setzen
            gAdoCon.Execute "EXEC PS_FA_DruckStatus '" + .Text(i, _
              "Fakt_Nr_Typ") + "'"
        End If
    End If
    .MoveNext
Next i
' Datensätze wieder neu lesen fürs Grid
With Me.txtData(coAuftragsType)
    SPO_ChangeType CStr(Val(.SubItem(.ListIndex, "Type"))), .SubItem( _
      .ListIndex, "Feld")
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de