Relatorio em clipper

[carlosgustavo]

Olá, quero saber como faço para fazer o relatorio ser exibido conforme o usuario for pressionando a setinha para baixo, pois o meu relatorio exibe um parte do relatorio e depois para de mostar os registros quando chega ao final da tela do dos.



Uploaded with ImageShack.us

Código: Selecionar todos

USE CLIENTES
IF !FILE("INDCLI.NTX")
INDEX ON CODIGO TO INDCLI
ENDIF
SET INDEX TO INDCLI
SET COLOR TO "GR+/B"
CLEAR
@ 1,1 TO 24,78 DOUBLE
@ 1,1 SAY "TORA NOBRE COMERCIO DE MADEIRAS LTDA"
@ 1,58 SAY "RELATORIO DE CLIENTES"
GO TOP
SEEK 1
IF !FOUND()
ALERT("SEM CADASTROS")
RETURN
ENDIF
@ 3,4 SAY "CODIGO     NOME                                              "
@ 4,4 SAY REPLICATE("-",58)
DO WHILE !EOF()
@ ROW()+1,4 SAY CODIGO
@ ROW(),15 SAY NOME
@ ROW()+1,4 SAY REPLICATE("-",58)
SKIP
ENDDO
DO WHILE .T.
INKEY(0)
IF LASTKEY()=27
EXIT
ENDIF
ENDDO

[alaminojunior]

Uma possibilidade sería enviar este conteúdo para um arquivo texto e em seguida abrí-lo com memoedit().

Código: Selecionar todos

set printer to "relat.txt"
set device to printer
USE CLIENTES
IF !FILE("INDCLI.NTX")
   INDEX ON CODIGO TO INDCLI
ENDIF
SET INDEX TO INDCLI
@ 1,1 SAY "TORA NOBRE COMERCIO DE MADEIRAS LTDA"
@ 1,58 SAY "RELATORIO DE CLIENTES"
GO TOP
SEEK 1
IF !FOUND()
   ALERT("SEM CADASTROS")
   RETURN
ENDIF
@ 3,4 SAY "CODIGO     NOME                                              "
@ 4,4 SAY REPLICATE("-",58)
DO WHILE !EOF()
   @ ROW()+1,4 SAY CODIGO
   @ ROW(),15 SAY NOME
   @ ROW()+1,4 SAY REPLICATE("-",58)
   SKIP
ENDDO
set printer to
set device to screen
memoedit("relat.txt")

[carlosgustavo]

Não deu certo!!
Ele simplesmente mostra o texto entre aspas, ou seja, o nome do arquivo em txt.

[alaminojunior]

Opa ! Falha nostra !

Código: Selecionar todos

texto:= memoread("relat.txt")
memoedit(texto)

Ou se o colega preferir, depois de terminada a impressão no arquivo, pode abrí-lo com o Notepad do Windows.

Código: Selecionar todos

! CMD /C START /MAX /HIGH c:\windows\notepad.exe relat.txt