ListView - Imprimir itens selecionado

boa tarde, amigos!

como faço para implementar este comando abaixo, para que imprima os itens que foram selecionados, ou seja, se tiver apenas 1 item selecionado, ele imprimirá apenas este item, que até aí está tudo ok, mas se for mais de um ao mesmo tempo, ele só imprime o primeiro, como faço para imprimir todos?

grato pela atenção,

girréis

Private Sub cmdPrevia_Click()Dim vdescricao As IntegerFor i = 1 To ListView1.ListItems.Count If ListView1.ListItems(i).Checked = True Then 'MsgBox "selecionado" vdescricao = MsgBox("Itens selecionados: " & ListView1.ListItems(i), vbOKOnly, "informações") Label1.Caption = "deu certo" DataSubsistemas.rsCommand1.Filter = " IDENTIFICACAO like '" & ListView1.ListItems(i) & "'" DataReport1.Show End IfNextEnd Sub