Impressora Matricial fica pulando linhas no final

[Tomaz Edson Linhares]

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)

[luiz antonio da silva]

Boa Noite Tomaz !

Adicione um IF como no exemplo, que acredito resolver o problema

Código: Selecionar todos

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.