I need help fast again!!!!!!

[gwdash]

ok, try this:

Private Sub PrintListbox(Listbox As Listbox)
Dim i As Integer

For i = 0 To Listbox.ListCount - 1
    Printer.Print Listbox.List(i)
Next

Printer.EndDoc
End Sub