impressao ñ ejeta quando é maior que 55 linhas
Enviado: 11 Dez 2006 13:18
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
*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