ListView - Imprimir itens selecionado

[Girreis 0]

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

[Girreis 0]

Alguém pode me auxiliar?como faço para resolver este dilema?um abração,Girréis