Posted on January 4, 2009
1
2
3
4
5
6
7
8
9
10
11
12
13
| 'Controls - How to print contents of a ListBox control?
Option Explicit
Private Sub PrintListBoxContents()
Dim I As Integer
For I = 0 To List1.ListCount - 1
'To Print to the immediate window
Printer.Print List1.List(I)
'To Print to the default printer
Printer.Print List1.List(I)
Next
Printer.EndDoc
End Sub |