PC Toledo

Estou apavorado
Estou utilizando um codigo em clipper para impressão do banco de dados mas e no mesmo so possui 2 registros. Mas na hora de imprimir ele imprime infinitas vezes sempre o 1º registro o q faço?
Aí vai o código:

USE AGENDA
SAVE SCREEN TO TELA18
DO WHILE .T.
IMPPRO = SPACE(01)
@ 12,24 CLEAR TO 16,54
@ 13,28 SAY "IMPRESSORA PRONTA? [S/N] " GET IMPPRO PICT "@!" +; VALID(IMPPRO$"SN")
READ
IF IMPPRO = "N"
RESTORE SCREEN FROM TELA18
RETURN
ELSE
SET CURSOR OFF
SET COLOR TO W+/G+
IF .NOT. ISPRINTER()
SET COLOR TO W+/G
@ 16,26 SAY "IMPRESSORA NÃO ESTÁ PRONTA! "
INKEY(0)
@ 16,26 SAY " "
LOOP
ENDIF
EXIT
ENDIF
ENDDO
SET COLOR TO W+/G
@ 12,24 CLEAR TO 16,54
@ 13,28 SAY "I M P R I M I N D O "
SET DEVICE TO PRINTER
** EFETUAR IMPRESSÃO DO ARQUIVO ORGANIZADO
LIN = 0
PAG = 1
HO = TIME()
DA = DTOC(DATE())
TC = 0
SELECT 1
SET ORDER TO 1
GOTO TOP
TOC = RECCOUNT()
DO WHILE .NOT. EOF()
@ PROW() + 00, 00 SAY "TESTE DE RELATÓRIO"
@ PROW() + 01, 02 SAY "TOTAL DE REGISTROS: " + ALLTRIM(STR(TOC))
@ PROW() + 00, 23 SAY "DATA: "+DA + " HORA: " + HO
@ PROW() + 00, 72 SAY "PAG.: " + ALLTRIM(STR(PAG,0))
@ PROW() + 01, 00 SAY REPLICATE("-",79)
DO WHILE .NOT. EOF()
@ PROW() + 01, 02 SAY "DIA: " + DIA
@ PROW() + 01, 02 SAY "HORA: " + HORA
@ PROW() + 01, 02 SAY "COMPROMISSO: " + COMPRO
@ PROW() + 01, 00 SAY REPLICATE("=",79)
TC = TC + 1
IF LIN > 55
LIN = 0
PAG = PAG + 1
EJECT
EXIT
ENDIF
ENDDO
ENDDO
SET DEVICE TO SCREEN
RESTORE SCREEN FROM TELA18
RETURN

Hummes,

você esqueceu o comando SKIP. Acrescente-o logo após:
TC = TC + 1