Clipper On Line • Ver Tópico - Impressora Matricial fica pulando linhas no final
Mudar para estilo Clássico
Projeto MiniGui - Biblioteca visual para Harbour/xHarbour
Postar uma resposta

Impressora Matricial fica pulando linhas no final

11 Jul 2018 19:28

Olá amigos,

Tenho uma impressora Bermateh matricial (cabo paralelo) instalada no Windows (XP) como generico .

Quando mando imprimir, ela imprime os dados corretos, mas no final ela permanece pulando diversas linhas, tipo
imprimindo linhas em branco. Essa rotina na impressora de tinta fica perfeito, já na paralela dá esse erro.
Será o comando de finalização errado? Se alguém tiver alguma rotina simples que imprime em paralelo, favor enviar.

Essa é a função que apresenta esse erro:

Function REL_teste()
SELECT PRINTER DIALOG PREVIEW
START PRINTDOC NAME 'Gerenciador de impressão'
START PRINTPAGE
***************************
USE ARQ_TESTE ALIAS ARQ_TESTE
go top
linha := linha_i
while .not. eof()
@ linha,005 PRINT CODIGO FONT 'courier new' SIZE 010
@ linha,017 PRINT NOME FONT 'courier new' SIZE 010
linha := linha + 05
ARQ_TESTE->(dbskip())
enddo
****************************
END PRINTPAGE
END PRINTDOC

return(nil)

Impressora Matricial fica pulando linhas no final

11 Jul 2018 23:13

Boa Noite Tomaz !

Adicione um IF como no exemplo, que acredito resolver o problema
Código:
Function REL_teste()
SELECT PRINTER DIALOG PREVIEW
START PRINTDOC NAME 'Gerenciador de impressão'
START PRINTPAGE
***************************
USE ARQ_TESTE ALIAS ARQ_TESTE
go top
linha := linha_i
while .not. eof()
if len(codigo) > 0
   @ linha,005 PRINT CODIGO FONT 'courier new' SIZE 010
   @ linha,017 PRINT NOME FONT 'courier new' SIZE 010
   linha := linha + 05
endif   
ARQ_TESTE->(dbskip())
enddo
****************************
END PRINTPAGE
END PRINTDOC

return(nil)


Abraço.
Postar uma resposta