Visual Basic - AYUDA PARA IMPRIMIR UN RECORDSET A CODIGO PELADO

En un Recordset (Rs1) (Set Rs1=Basedatos.OpenRecordset("SELECT * FROM TABLA ORDER BY Campo1, Campo2",dbOpenSnapshot)
If Rs1.RecordCount >0 Then
Rs1.MoveFirst
Do While Not Rs1.EOF
Imprime 500, 3250, Format(Rs1!FECHA,"dd-mm-yyyy")
Rs1.MoveNext
Loop
¡AUXILIO! UN EJEMPLO DE IMPRIMIR TODOS LOS REGISTROS DEL RECORDSET CON LA VARIABLE DE TABULADOS Y DEL SALTO DE LINEA HASTA EL ENDDOC; SOLAMENTE ME IMPRIME UN REGISTRO
NO SE COMO HACER QUE EL BUCLE LEA Y ESCRIBA LINEA POR LINEA LOS CAMPOS QUE LE INDIQUE EN COLUMNAS.

Usa Until en lugar de While:

If Rs1.RecordCount >0 Then
Rs1.MoveFirst
Do Until Rs1.EOF
Imprime 500, 3250, Format(Rs1!FECHA,"dd-mm-yyyy")
Rs1.MoveNext
Loop
Endif

Yo imprimo así un Recorset sin problemas

Espero haberte ayudado.
Saludos.

Pedro