Printing a listbox

Hello!
Does someone of you know how to print a listbox?
Do I perhaps need to run through it, save it as a file and print it like that?
For my purpose it is very important that it gets directly printed because it contains passwords!
Many thanks for your help!

(Maybe this has already been discussed somewhere in this forum but "The search function has been disabled by the administrator." as you parobably know :()

Code:

---

Dim i As Integer
For i = 0 To List1.ListCount - 1
    Printer.Print List1.List(i)
Next i
Printer.EndDoc

---