Compactando salto de impressora

[rbonotto]

Olas,

Seguinte, fiz a seguinte rotina para dar microsaltos em impressoras matriciais.

esc := CHR(27)
pcode(esc + CHR(51) + CHR(2))

Aqui pra frente fazia a impressão de códigos de barra em bloquetos bancarios

***************************************
FUNCTION pcode(code)
***************************************
LOCAL cDevice := SET(20,"PRINTER")
IF lOcal_i == 1
SET(20,"PRINTER")
DEVPOS(sAlto,00)
SETPRC(0,0)
lOcal_i := 2
END
DEVOUT(code)
SET(20,cDevice)
RETURN(NIL)


****************************************

O problema é que a impressora fica com estes comandos de microsaltos, e para voltar ao normal...só desligando e ligando...

deve ter um código para ser colocado aqui:
pcode(esc + CHR(51) + CHR(2))

Onde ela volte a imprimir normal.

Alguem poderia me dar um help ?

[Maligno]

pcode(esc + CHR(51) + CHR(2))

O que você pode experimentar é reconfigurar o salto para o valor de 1/6, usando Chr(27) + Chr(2) ou, se não der certo, calcular o "inverso" do salto que foi feito: Chr(27) + Chr(51) + Chr(36), lembrando que, neste caso, 36/216 é igual a 1/6, que é a entrelinha "normal".

[Eolo]

Eu uso chr(27)+"J"+chr(1) para fazer as Epson dar UM micro espaço (1/216"), mas não preciso dar nenhum comando pra "desabilitar" o micro espacejamento depois... Ela executa UM micro espacejamento e pronto.

Já o comando que vc tá usando, chr(27)+chr(51)+chr(2), seta a impressora pra usar aquele espacejamento dali pra frente, aí depois tem que fazer voltar pro padrão...

O que eu faço, pra ajustar a impressão com micro espaços, sem interferir com nenhum outro setup da impressora, é o seguinte:

Código: Selecionar todos

for a=1 to N // onde N é a qtde desejada de espaços
  chr(27)+"J"+chr(1)
next

[rbonotto]

Valeu as dicas !

Amanhã vejo se "funfou" e deou em feedback.

Abraços,

[sygecom]

A quem Interresar....no link abaixo tem mais Alguns Comando:
http://www.sygecom.com.br/xharbour/impressao_epson.txt

Abraços
Leonardo Machado

[Maligno]

http://buzinello.com/download/epson_esc ... manual.pdf

[rbonotto]

pcode(esc + CHR(51) + CHR(2))

O que você pode experimentar é reconfigurar o salto para o valor de 1/6, usando Chr(27) + Chr(2) ou, se não der certo, calcular o "inverso" do salto que foi feito: Chr(27) + Chr(51) + Chr(36), lembrando que, neste caso, 36/216 é igual a 1/6, que é a entrelinha "normal".

Matou a cobra e mostrou o pau !!

Chr(27) + Chr(2) " arresorveu" o problema !

Valeu a todos, isto estava me tirando o sono !! :-O

[gilsonpaulo]

O que você pode experimentar é reconfigurar o salto para o valor de 1/6, usando Chr(27) + Chr(2) ou, se não der certo, calcular o "inverso" do salto que foi feito: Chr(27) + Chr(51) + Chr(36), lembrando que, neste caso, 36/216 é igual a 1/6, que é a entrelinha "normal".

Por acaso alguem teria uma tabela dos valores para estes saltos de linhas?

Desde ja agradeço...

Gilson Paulo Schuck

[Maligno]

Observe por aquele manual da Epson que há diversos comandos de configuração de salto entre linhas. Portanto, os valores para configuração podem ser vários. Você deve escolher o comando que mais se adequa ao seu caso. Vá à página C50 do manual e estude os comandos.

Aliás, o link que passei antes não existe mais. O novo link é http://pub.buzinello.com/index.php?d=./manuals/

[gilsonpaulo]

Valeu, obrigado mesmo.