impressao em formulario razao

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Alexandra Mendes
Usuário Nível 1
Usuário Nível 1
Mensagens: 5
Registrado em: 25 Mai 2006 13:19
Localização: Antônio Carlos - MG

impressao em formulario razao

Mensagem por Alexandra Mendes »

Estou com um problema, tenho que imprimir em formulario razao, a impressora é uma lx 300. Porem o cliente nao quer ter que ficar apertando o botao para subir e descer a folha.
Ja tentei colocar a impressora para subir, deu certo ela sobe a folha ao final da impressao, porem quando mando outra impressao ela volta mas nao para no picote certo (linha 30), ela solta a folha como se fosse o formulario normal.
Para passar a folha o comando é o EJECT. Será que tem algum comando para voltar a folha?

Abraços a todos.

Alexandra
josenilson
Usuário Nível 1
Usuário Nível 1
Mensagens: 46
Registrado em: 14 Set 2004 10:58

Mensagem por josenilson »

Tenta fazer o seguinte:

Antes de iniciar a impressão, defina a qtde de linhas do formulário. No caso do form razão, são 33 linhas (metade do formulário normal).

@ 0,0 Say Chr(27)+"@" + Chr(27)+"C"+Chr(33)


O comando Chr(27)+"@" serve para reiniciar a impressora
O comando Chr(27)+"C"+Chr(33) configura a qtde de linhas do form.

Dai, é só imprimir normalmente. Quando vc der um comando Eject, o formulário será reposicionado no inicio da folha seguinte. ok?


T+ :xau
Josenilson Neiva
MSN: JosenilsonNeiva@hotmail.com
Infocompany Teresina-PI
Avatar do usuário
digitom
Usuário Nível 2
Usuário Nível 2
Mensagens: 93
Registrado em: 06 Abr 2006 13:52
Localização: Anápolis-Go
Contato:

Mensagem por digitom »

Eu sugiro que você use o comando


SETPRC(0,0)

Ele atribui 0,0 (linha, coluna) à posição da cabeça de impressão
Fui :)
Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1717
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

Mensagem por alaminojunior »

Reforçando a idéia do colega aí de cima, esqueça comandos como eject ou configurações da impressora, use SetPrc(0,0), para zerar a linha e coluna, e ao final do relatório se faltar alguma linha para chegar ao final use
@ prow()+n,pcol() say " " // (onde n é a quantidade de linhas que falta),
se precisar, e vc vai precisar, use :
if linha = 30
imprime novamente o cabeçalho do relatorio
endif
Entendeu ?
+ dúvidas retorne
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Avatar do usuário
matrix
Usuário Nível 3
Usuário Nível 3
Mensagens: 131
Registrado em: 06 Jul 2004 08:41
Localização: Paraná
Contato:

Mensagem por matrix »

buenas,

só + 1 sugestão, deixe o tear off da impressora ligad, assim o controle do picote vai sempre ficar no corte.

abraço
"Ter Problemas é Inevitável, ser derrotado por eles é opcional.!!"
Responder