Can i ask please ask you guys one more? Can you figure out why this won't print? Thank you very much.

Private Sub mnuPrint_Click()

cdlPrint.ShowPrinter
For i = 0 To lstShopping.ListCount - 1
Printer.Print lstShopping.List(i)
Next

End Sub

Archie Kantzavelos