Something along the lines of this should work for you:
Code:
Dim I As Integer
For I = 0 To List1.ListCount - 1
    Printer.Print List1.List(I)
Next
Printer.EndDoc

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]