Ajuste de Impressora

[Marquin]

Boa Tarde,

Estou tentando configurar pra imprimir nota fiscal e esta dando um problema na hora de posicionar no proximo formulario.

impressora fx 2180 epson

set print on
??chr(27)+'x'+chr(0) //reset
??chr(27)+chr(77)+chr(15) //comprimir
??chr(27)+chr(48) // imprimir em 1/8
set print off

set device to print

?? texto

eject
set device to screen

Meu relatorio tem 83 linhas e o meu formulario é de 11 polegadas formato CARTA

Onde estou errando?

Agradeço a todos,

Marquin

[rochinha]

Amiguinho

Diminua o montante de linhas de seu relatorio, 83 é demasiado e para resetar a impressora use SetPRC(0,0).

Ou defina melhor o problema dizendo se para antes ou depois no formulario, se pula uma folha, etc.

[Marquin]

Bom dia Rochinha,

Não posso diminuir a quantidade de linha porque a ultima linha em meu formulario é na 83.
Quando termina a impressao o formulario vai pro meio do proximo formulario e não no picotado para o corte.
Ja vi em alguns casos q se a impressora tiver definida como A4 no windows ela segue o padrao do windows como configurar dentro do clipper pro tamanho CARTA (11") e não ficar dependente do usuario.

Agradeço desde Ja

Marquin

[Clipper]

Prezado Colega

O que você precisa é configurar a página em número de linhas, que no seu caso é 83, deve ser um comando do tipo CHR(27)+CHR(X)+"83", veja no manual da sua impressora, você também pode executar o comando em polegadas, precisará saber o comando e tb o tamanho do formulário em polegadas. Veja no manual, lá tem tudo o que precisa.

Obs : Em hipótese alguma a impressora segue o padrão do Windows, em um programa DOS ela segue o que estiver configurada nela, depois os comandos do programa, ela nem sabe que o Windows existe.

Até logo.

Marcelo

[Clipper]

O comando para definir o número de linhas em 83 na sua impressora é :

CHR(27)+"C"+"83"

Isso se realmente for 83 linhas por página.


Lista de todos os comandos ESC/2

http://www.epson.co.uk/support/manuals/ ... Part_1.pdf

Até logo.

Marcelo

[Marquin]

Vou fazer os testes

Obrigado a todos e um abraço

Atenciosamente,

Marquin

[rochinha]

Amiguinho

Outra coisa,

Voce não precisará nunca utilizar o EJECT mesmo porque ele age com o padrão da impressora e voce terá de configurar cada impressora com o comando de tamanho de papel e isto pode atrapalhar outros programas que utilizem o padrão A4.

Eu nunca utilizo comandos de configuração de quantidades de linhas, pois imprimo notas fiscais, boletos e orçamentos em formularios continuos de meia pagina. Eu prefiro usar meu proprio contador, por exemplo:

Seu relatorio tem 83 linhas, e a diferença da ultima linha para o inicio da proxima pagina é 8 linhas( exempo de notas fiscais ), então eu vou testando cada contador e quanto chegar no limite zero o contador dou o salto para a proxima pagina, linha a linha e zero meu contador e continuo imprimindo.

Código: Selecionar todos

...
nLinha := nLinha + 1
if nLinha >= 83
   // Salto para a proxima pagina
   for i = 1 to 8
        @ nLinha + i, 0 say '.'
   next
   nLinha = 0
   setprc(0,0)
endif
...