Nodosimp comendo linhas, help?

por **pena** » 16 Abr 2019 21:33

Boa noite, ajustei alguns relatórios do sistema para imprimir no usb, migração de clipper para harbour e utilizei o nodosimp, porem o cliente me relatou que sempre a ultima linha de cada pagina ele come, simplesmente não imprime, monitorei no debugador e imprime, não sei que estou fazendo errado, no codigo sempre testo se prow() > q tal linha, chama um cabecalho, simplesmente nao sei onde vai parar

esta rotina impctl pra quem utlizou o gas, ou miroplus sabe que ele configura conforme a impressora, porem pra nao mexer nos codigos fontes, nesta rotina eu faço voltar .T., e coloquei tudo em 80 colunas

     IF PROW()>56
        EJECT
        CABE_RPRO("Lista C/Estoque","","")
        IMPCTL(DRVPENF)
        @PROW()+2,01 SAY LEFT(GRUPOS->GRUPO,20)+[ - ]+STR(PRODUTOS->GRUPO,3)
        @PROW()  ,01 SAY LEFT(GRUPOS->GRUPO,20)+[ - ]+STR(PRODUTOS->GRUPO,3)
        IMPCTL(DRVTENF)
     ENDI

*****************************
FUNC CABE_RPRO(titu,crit,mos)
*****************************
IMPCTL(drvTELI)
IMPCTL(drvtcom)
IMPCTL(drvtc20)
IMPCTL(drvpenf)
IMPAC("                                     ",0,010)
IMPAC("        P F U L L E R                 ",1,010)
IMPAC("      -----------------         ",2,010)
IMPCTL(drvtenf)
IMPAC("Pag.",2,057)
@2,064 SAY "Data"
@2,075 SAY "Hora"
IMPAC("Relatorio:",3,000)
IMPAC(TITU,3,12)
@3,57 SAY TRAN(pag,'9999')
@3,064 SAY DTOC(M->DAT_HOJE)
@3,074 SAY hora_rel_
IMPAC("Criterios:",4,000)
IMPCTL(drvpc20)
@04,12 SAY "Produto de: "+STR(M->PRODUTOI,6)+" a "+STR(M->PRODUTOF,6)+"    Ordem.: "+IF(M->ORD="1","Codigo",IF(M->ORD="2","Alfabetica",IF(M->ORD="3","Grupo Codigo","Grupo Alfabetico")))
IMPCTL(drvtc20)
IMPCTL(DRVTCOM)
@5,000 SAY REPL("=",79)
IMPCTL(drvPELI)
@06,01 say "Codigo  Nome do Produto                           Un  Quantidade    Valor"
@07,01 SAY "------  ----------------------------------------  --  ----------  ----------"
CL=prow()+1
retu .t.

por **Kapiaba** » 17 Abr 2019 09:52

Imprima em uma impressora virtual em PDF, que você descobre. Eu uso essa:

https://www.pdfmachine.com/

Instale a versão grátis.

por **pena** » 17 Abr 2019 09:55

é o que eu faço, utilizo pdf creator, agora pq some do relatório que é o bixo

por **Jairo Maia** » 17 Abr 2019 10:36

Olá pena,

Já tentou alterar IF PROW()>56 para 55 ou 54 para saber se não é a impressora que coloca automaticamente o limite de linhas de impressão? Pode ser que essa última linha não imprime porque está na margem mínima do rodapé dessa impressora.

por **pena** » 17 Abr 2019 10:38

Jairo, se diminuir não altera nada, ele come a ultima linha sempre

por **pena** » 17 Abr 2019 11:15

Pessoal resolvi da seguinte maneira, ao testar o numero de linhas, imprimi mais uma linha em branco, ae funcionou

[code
IF PROW()>56
@PROW()+1,01 SAY SPACE(20)
CABE_RPRO("Lista C/Estoque","","")

[/code]