Printing Items from a List Box

I hope someone can help me to print all the items from a list box that is populated at runtime using the additem method. I am having trouble in finding any comprehensive information on printing anywhere and I am wondering if it is possible at all?! Thanx in advance!

try

for i = 0 to List1.ListCount - 1
List1.ListIndex = i
Printer.print List1.Text
next i
Printer.EndDoc