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
impressao em formulario razao
Moderador: Moderadores
-
Alexandra Mendes
- Usuário Nível 1

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

- Mensagens: 46
- Registrado em: 14 Set 2004 10:58
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
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
- alaminojunior
- Colaborador

- Mensagens: 1717
- Registrado em: 16 Dez 2005 21:26
- Localização: Ubatuba - SP
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
@ 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
MySQL c/ SQLRDD
HwGui + GTWVG

