Intenta esto:
Coloca 1 CheckBox: si tiene el cotejo exportas todo, sino, exportas el seleccionado
Código vb:
Ver original...
...
...
With ListView2.SelectedItem 'SELECCIONA EL ITEM DEL LISTVIEW
IF chkTODO.VALUE=1 THEN 'EL CHECK ESTA COTEJADO
' HACEMOS UNA SELECCION DE TODO, SI TIENES UN SELECT ESPECIFICO QUE CARGA EL LISTVIEW, LO PONES AQUI
RsImprimir.Open "SELECT * FROM Asignado", cnn, adOpenDynamic, adLockBatchOptimistic
ELSE
' EL CHECK NO ESTA COTEJADO, HACE EL SELECT DEL ITEM SELECCIONADO
RsImprimir.Open "SELECT * FROM Asignado WHERE ID = " & ListView2.SelectedItem.Text, cnn, adOpenDynamic, adLockBatchOptimistic
END IF
