SoloCodigo

Hola de nuevo.

Tengo el siguiente problema, quiero imprimir tres registros por página  cumplen una condicion hasta que la condicion acabe. Bueno intento emplear bucle por contador For Next pero no encuentro la forma de que de el resultado que quiero.
Agradeceria buestra ayuda..
Adjunto el siguiente codigo

Do Until campo.EOF
 
    For I = 0 To 3
 
   Printer.Font.Size = 8
   Printer.Print Tab(10); "Nombre:    "; campo!nom & ", (" & campo!nif & ")"
   Printer.Print Tab(10); "Dirección:  "; campo!dire
   Printer.Print Tab(10); "Localidad:  "; campo!cp & " - " & campo!loca & " (" & _
                         campo!prov & ")"
   Printer.Print Tab(10); "Total:    "; Format(campo!total, "###,##0.00") & " €"
   
   campo.MoveNext
   Printer.NewPage
   
   Next
 Loop

  FontName = oldfont
  FontSize = oldsize
  Printer.EndDoc

esta condicion for next solo imprime un registro por página, echarme una mano
Gracias........

gracias por tu respuesta, sencilla pero funciona de fabula y yo que me volvia loco con el for next gracias de nuevo.

hasta otra