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