Printing contents of a ListBox control

[OlgaV]

Does anyone know how to print contents of a ListBox control?
Please, help.

Thanks,

Olga

[Aaron Young]

Something along the lines of this should work for you:

Dim I As Integer
For I = 0 To List1.ListCount - 1
Printer.Print List1.List(I)
Next
Printer.EndDoc



------------------
Aaron Young
Analyst Programmer
aarony@redwingsoftware.com
adyoung@win.bright.net

[OlgaV]

Thanks, Aaron!

Worked like a charm!

Olga.

[cas21]

Option Explicit
Dim i As Integer

Private Sub cmdPrint_Click()
For i = 0 To 9
List1.ListIndex = i
'Debug.Print List1 'Prints in the immediate window
Print List1 'Prints on the form
'Printer.Print List1 'Prints on my laser, Assume no more than one page
Next
Printer.EndDoc
End Sub

Private Sub Form_Load()
For i = 1 To 10
List1.AddItem (i)
Next
End Sub