Printing A list Box

[JeremyM]

I have a list box in report view and I need to print what is in the listviewbox.

Anyone know an easy way (or a way) to do this.

Thanks,
Jeremy

 

[dpaulson]

Private Sub Command1_Click()
Dim SEARCH As Integer
For SEARCH = 0 To List1.ListCount - 1
Debug.Print List1.List(SEARCH) '
Next SEARCH
End Sub

David Paulson

 

[JeremyM]

I mean that I need it to print to my printer.

 

[dpaulson]

Private Sub Command1_Click()
Dim SEARCH As Integer
For SEARCH = 0 To List1.ListCount - 1
Printer.Print List1.List(SEARCH) '
Next SEARCH
Printer.EndDoc
End Sub

David Paulson

 

[AndrewBillits]

I get an error when I use this. The error is:

Compile error
Method or data member not found


then when I click ok this is highlighted:

.ListCount


please help, I really need this

 

[s8dsw]

If you have a large listcount then it is a good idea to set visible=false whilst printing. This will speed things up.

 

[AndrewBillits]

the list count is very small. but it just gives me the error I posted above