Sub MAIN
  MaxSeiten = 5
  Dim Dlg As DateiDateiInfo
  GetCurValues Dlg
  AnzSeiten = Val(Dlg.AnzSeiten)
  For i = 1 To AnzSeiten Step MaxSeiten
    Von = i
    Bis = i + MaxSeiten - 1
    If Bis > AnzSeiten Then
      Bis = AnzSeiten
    End If
    DateiDrucken .Bereich = 3, .Von = Str$(Von), .Bis = Str$(Bis)
  Next i
End Sub
