Visual Basic - Imprimir un ListBox

nececito como saber como imprimir el contenido de un listbox,
Gracias al que me pueda ayudar

Prueba con esto :
Private Sub cmdImprimir_Click()
Dim i As Integer
Dim ImpLinea As Integer
For i = 0 To List1.ListCount - 1
Printer.Print List1.List(i)
ImpLinea = ImpLinea + 1
If ImpLinea = 30 Then
Printer.NewPage
ImpLinea = 0
End If
Next i
Printer.EndDoc
End Sub