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)