'Supongamos que el listbox que tiene esta con el nombre por default "List1"For n = 0 to (List1.ListCount - 1)Printer.Print List1.List(n)NextPrinter.EndDoc