VB help

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

I think u should call
printer.NewPage at the begining and

printer.enddoc at the end like this

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

What kind of error are you getting if any?
What happens when the code executes?
When I try the same code it works fine. You should add the Printer.EndDoc


statement after your for loop.

Kris
Software Engineer
Phoenix,AZ