Printing a list

[Asaf_99]

How do I print a list?
Any help appriciated.

[HeSaidJoe]

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.

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