eu tenho um ListView1 no meu form que e carregado assim

 

            SQL = "SELECT * FROM permissoes WHERE nom_mat like " & Criterio & "and ent_mat between #" & DataInicial & "# AND #" & DataFinal & "#" & "order by nom_mat"   
    
    rsPaciente.Open SQL, cnSQL, adOpenForwardOnly, adLockReadOnly
   
    While Not rsPaciente.EOF

        Set lst = ListaAlunos.ListItems.Add(, , rsPaciente("mat_mat"))
        lst.SubItems(1) = rsPaciente("pgu_mat")
        lst.SubItems(2) = rsPaciente("nom_mat")
        lst.SubItems(3) = rsPaciente("ent_mat")
        lst.SubItems(4) = rsPaciente("esc_mat")
        rsPaciente.MoveNext
    Wend
     
    rsPaciente.Close
    Set rsPaciente = Nothing
como faço pra imprimir no CrystalReport1 o que esta selecionado no ListView1

 

Se quiser sei como fazer no DataReport.