impressao ñ ejeta quando é maior que 55 linhas

[ederxc]

Pessoal ja olhei essa fonte e ñ consegui descobri o pq de meus relatórios ñ estarem ejetando quando for maior que 55 linhas




*relat¢rio em<IMPRESSORA> de fornecedor *
*eder xavier *
**********************************************

CLS
SETCOLOR('W+/N')
use fornec index ximpfor

DO WHILE .T.
SAVESCREEN(0,0,23,79)
setmode(25,80)
Go top
setcolor('w+/n')
scroll(00,00,24,79)
dispbox(01,00,23,79)
VDATA1=CTOD('')
VDATA2=CTOD('')
@00,00 SAY PADC ('RELATORIO COMUM EM <IMPRESSORA> DE FORNECEDOR(GERAL)',79)COLOR ('G+/R')
@03,01 SAY 'DATA INICIAL:' COLOR ('g+')
@03,27 SAY 'AT

[Dércio_Luiz_Zanatta]

Não sei, mas acho que no seu Do while !eof() .or. ROW()<55, deveria ser PROW()<55....
Pelo que eu sei a função ROW() retorna a linha em que o cursor está posicionado no video e PROW() na impressora...
Tente mudar e ve se funciona.. ok ?
Espero ter ajudado...
Um grande abraço...

[ederxc]

hahahahahaha é verdade .. que marcação de minhha parte nem tinha me ligado nisso um grande abraço e obrigado pela paciencia !

[rochinha]

Amiguinho

Esquenta não que já cheguei a perder mais de um dia com um erro basicão, manja.

A cabeça ferve, o telefone toca na hora que a dor de barriga aperta... e aí vai.