Clipper On Line • Ver Tópico - Impressora Matricial fica pulando linhas no final

Impressora Matricial fica pulando linhas no final

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Impressora Matricial fica pulando linhas no final

Mensagempor Tomaz Edson Linhares » 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)
Tomaz Edson Linhares
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 28
Data de registro: 19 Abr 2016 17:03
Cidade/Estado: São Gonçalo/RJ
Curtiu: 1 vez
Mens.Curtidas: 0 vez

Impressora Matricial fica pulando linhas no final

Mensagempor luiz antonio da silva » 11 Jul 2018 23:13

Boa Noite Tomaz !

Adicione um IF como no exemplo, que acredito resolver o problema
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.
HMG 3.4.4 - SQL SERVER - ORACLE
luiz antonio da silva
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 157
Data de registro: 21 Nov 2006 21:12
Cidade/Estado: serrana-sp
Curtiu: 13 vezes
Mens.Curtidas: 10 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Faça uma doação para o forum
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro