Access - Imprimir por cada registro reporte que corresponda

Buen día tengo dos tablas una de clientes y una de registros de rutas que maneja cada cliente

Elabore 3 reportes, los he diseñado para que dependiendo del numero de registros que tenga cada cliente escoja un reporte para que la impresión sea mas acorde al numero de registros...

Private Sub cmdInforme_Click()
Registros = DCount("FOLIO", "rutas", "FOLIO = '" & Me.FOLIO & "'")
Select Case Registros
Case Is <= 5
DoCmd.OpenReport ReportName:="Contrato0105", View:=acViewPreview, OpenArgs:=Me.IATA
Case Is <= 10
DoCmd.OpenReport ReportName:="Contrato0610", View:=acViewPreview, OpenArgs:=Me.IATA
Case Is > 10
DoCmd.OpenReport ReportName:="Contrato1115", View:=acViewPreview, OpenArgs:=Me.IATA
End Select
End Sub

Lo que necesito que en mandar a imprimir todos lo clientes de una sola vez y que este código escoja su reporte correspondiente ¿me ayudan? Gracias