Printing a list

How do I print a list?
Any help appriciated.

Code:

---

Private Sub Command1_Click(Index As Integer)
'make a list
    For i = 1 To 10
        List1.AddItem i
    Next
'print the list
    For i = 0 To List1.ListCount - 1
    x = List1.Text
   
     
        Printer.Print x
    Next
'printer print it out now
    Printer.EndDoc

End Sub

---

Try this.

Code:

---

Private Sub Command1_Click()
    Dim tmp As String
   
    For I = 0 To List1.ListCount - 1
        tmp = tmp & List1.List(I) & vbNewLine
    Next I
   
    Printer.Print tmp
    Printer.EndDoc
End Sub

---