codice:
Private Sub PrintList()
Dim i As Integer
    If File1.ListCount = 0 Then Exit Sub
    For i = 0 To File1.ListCount - 1
        'Qui devi posizionare la stampa (vedi sotto)
        Printer.Print File1.List(i)
    Next
End Sub

Questa è una discussione molto simile dove poter trarre spunto.
http://forum.html.it/forum/showthrea...hreadid=436481