For Each row_temp In dt.Select("", "Teilenummer")
 
	If row_temp.Item("Prioritaet") = 0 Then
        	rep.PrintOptions.PaperSource = CrystalDecisions.Shared.PaperSource.Auto
        Else
                rep.PrintOptions.PaperSource = _
                  CrystalDecisions.Shared.PaperSource.Middle
        End If                    
	dt_temp.ImportRow(row_temp)
        rep.SetDataSource(dt_temp)
        rep.PrintToPrinter(1, False, 0, 0)
        dt_temp.Clear()
 
Next