esto es lo que utilizo para imprimir los 10 registros del listview. pero si solo selecciono uno como haria..
Private Sub Reporte_Todos()
Dim rs As New ADODB.Recordset
' botón para ver el reporte
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''
Set rs = nc.Execute("SELECT codigo, cedula, nombre,alias, observacion1 FROM registro ORDER BY cedula")
'Asigna el recordset al reporte
Set r1.DataSource = rs
' Muestra el reporte
r1.Show vbModal
End Sub
espero me puedan ayudar. se los agradezco mucho.
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''