For i = 1 To LvSearch.ListItems.Count
Printer.Print Space(6) & "Cognome : " & LvSearch.ListItem(i).Text
Printer.Print Space(6) & "Nome : " & LvSearch.ListItems(i).ListSubItems(1).Text
Printer.Print Space(6) & "Sesso : " & LvSearch.ListItems(i).ListSubItems(2).Text
Printer.Print vbNewLine
Next i
Printer.EndDoc
Alla prima riga puoi omettere l'espressione ".text", e cos' anche alle altre due purchè tu metta "lvsearch.listitems(i).subitems(1)"..

Cmq va bene, non a caso Oregon è un MVP.....

ciao ad entrambi