Boa Noite Galera,
Tenho um form_caixa, onde todos os produtos que o cliente compra são adicionados em uma list view somando o total a pagar, só que para ser feito o recibo só consigo enviar uma linha (produto) por vez e imprimir.
Quero que ao apertar IMPRIMIR RECIBO todas as linhas da list view com o nome e valor de todos os produtos comprados vá para o BD_recibo, para que eu possa imprimir.

********Essa e a rotina que quero, mas ela apenas funciona em listbox *************************************

'apaga o intervalo
    Range("A5:I50000").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A5").Select
    
    MsgBox ("Não há itens a serem lançados...")
Exit Sub
 
Else
    
    'limpa dados antes de lançar os novos dados
    If Range("A5").Select = "" Then
    'não faz nanda
    Else
    'apaga o intervalo
    Range("A5:I50000").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A5").Select
    End If
    
Range("A5").Resize(lst_busca2.ListCount, lst_busca2.ColumnCount) = lst_busca2.List

Obrigada.