PC Toledo

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 ?

rbonotto escreveu: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".

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:

Valeu as dicas !

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

Abraços,

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

Abraços
Leonardo Machado

Maligno escreveu:

rbonotto escreveu: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

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

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/

Valeu, obrigado mesmo.