[Resolvido]Imprimir itens de uma lista

Ola senhores,

Eu tenho um listbox e consigo selecionar varias linhas e gostaria de saber como posso imprimir essas linhas selecionadas.

Já tentei o codigo abaixo e deu o seguinte erro: Erro em tempo de execução '3075':
Erro de sintaxe (operador faltando) na expressão de consulta'Primeiro nome in(#Registro#)'.

Peço a ajuda de voces grandes mestres!

Código
Private Sub btImprimir_Click()
Dim filtro As String
Dim Sel As Variant
Dim j As Boolean

filtro = "in("
For Each Sel In Me!Lista.ItemsSelected
filtro = filtro & Me!Lista.Column(0, Sel) & ","
j = True
Next
filtro = Mid(filtro, 1, (Len(filtro) - 1)) & ")"
filtro = "Primeiro nome " & filtro

If j = False Then
MsgBox "Selecione uma ou mais registros...", vbInformation, "Aviso"
Me!Lista.SetFocus
Me!Lista = 0
Else
DoCmd.OpenReport "Relatorio", acViewPreview, , filtro
End If
End Sub

Eu tenho o seguinte retorno:

Primeiro nome = in(registro selecionado)

Selecione dois ou três registro e mostre na íntegra como está aparecendo.

Segue o erro:

Primeiro nome = in(Alberto Jackson,Alberto Zacharias,Alcides Ribas)

Obrigado pelo retorno Avelino, porem continuo com o mesmo erro.

Segue como ficou o msgbox apos a correção que você sugeriu:

Primeiro nome = in('Alcides Ribas','João Neves')

Consegui!!!!

Muito obrigado pela ajuda Avelino!!!