Dim i As Long
Dim row As Long
 
With List1
  For i = 0 To .ListCount - 1
    row = row + 1
    If row > 30 Then 
      Printer.NewPage
      row = 1
    End If
    Printer.Print .List(i)
  Next i
End With
Printer.EndDoc

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de