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)
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.