Tan facil como realizar lo siguiente... tiene que configurar un poco el objeto printer, para que te lo vaya situando en el papel, investiga un poco y darás con la solución.
Cita: For i = 0 To List1.ListCount
Printer.Print List1.List(i)
Next
Printer.EndDoc