Segnalazione di Migliore Mauro.       Mauro.Migliore@bnlmail.com

.........sono riuscito, non per merito mio ma grazie ad un ragazzo che ho conosciuto, ad avere il listato per la relativa stampa che provvedo ad inviarti sperando che possa essere utile a qualcuno.

(n.d.wm.) Questa una procedura per trasferire il contenuto di una ListBox su un foglio di lavoro e mandare in stampa l'elenco così ottenuto (le istruzioni sono per ListBox a due colonne dati, se la colonna fosse unica, basta togliere l'istruzione che si riferisce al Range B):

Private Sub CommandButton1_Click()
Set Fogliodistampa = Worksheets("Fogliodistampa")
Fogliodistampa.Cells.ClearContents
n = 1
RIGHE = ListBox1.ListCount
For X = 1 To RIGHE
Fogliodistampa.Range("A" + CStr(n)).Value = ListBox1.List (X - 1)
Fogliodistampa.Range("B" + CStr(n)).Value = ListBox1.List (X - 1, 1)
n = n + 1
Next X
Fogliodistampa.PrintOut
Range("A1").Select
End Sub

sono sicuro che tu capirai immediatamente quello che bisogna fare,  nel caso, comunque, per quanto impossibile che io possa aiutarti,  sono a tua disposizione. ciao

Riporto la segnalazione che potrà interessare altri "pellegrini". Un grazie a Mauro.