Comprimir deskjet 640c

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

ederxc
Usuário Nível 4
Usuário Nível 4
Mensagens: 619
Registrado em: 15 Set 2006 08:40
Localização: Pedreira -SP-

Comprimir deskjet 640c

Mensagem por ederxc »

Bom dia amigos !

Gostaria de saber se alguem dispões dos dos caracteres de compactção para deskjet 640c em 17cpp , 20 cpp e super comprimido ??
C:\Xharbour\Xdev\Fw\VSX
Avatar do usuário
vagucs
Membro Master
Membro Master
Mensagens: 1480
Registrado em: 10 Jul 2004 10:45
Localização: Ipanema - MG
Contato:

Mensagem por vagucs »

No PRWIN demo do meu site tem alguns comandos de compressão da HP e compativeis, faça um teste com sua impressora.
Sem mais
Wagner Nunes
www.vagucs.com.br
Avatar do usuário
gvc
Colaborador
Colaborador
Mensagens: 1270
Registrado em: 23 Ago 2005 10:57

Mensagem por gvc »

Normal - chr(27) + "(" + chr(115) + "10" + "H"
Comprimido 17 - chr(27) + "(" + chr(115) + "17" + "H"
Comprimido 20 - chr(27) + "(" + chr(115) + "20" + "H"

Ativa Negrito - chr(27) + "(" + chr(115) + "3" + "B"
Desativa Negrito - chr(27) + "(" + chr(115) + "0" + "B"

Ativa Expandido - chr(27) + "(" + chr(115) + "5" + "H"
Desativa Expandido - chr(27) + "(" + chr(115) + "10" + "H"
"TRS-80/Sincler/Apple/PC - Clipper Winter 85, tlink 1.0 [pc 10 MHz - 640K] {NEZ 8000 2Kb RAM}"
{POG - Programação Orientada a Gambiarra}
ederxc
Usuário Nível 4
Usuário Nível 4
Mensagens: 619
Registrado em: 15 Set 2006 08:40
Localização: Pedreira -SP-

Mensagem por ederxc »

pessoal farei os testes e volto com o resultado obrigado !
(#-)
C:\Xharbour\Xdev\Fw\VSX
ederxc
Usuário Nível 4
Usuário Nível 4
Mensagens: 619
Registrado em: 15 Set 2006 08:40
Localização: Pedreira -SP-

FUNCIONOU !

Mensagem por ederxc »

usei esta sua compakitação GVC e deu certo .. Agradeço aos amigos a atenção!
C:\Xharbour\Xdev\Fw\VSX
ederxc
Usuário Nível 4
Usuário Nível 4
Mensagens: 619
Registrado em: 15 Set 2006 08:40
Localização: Pedreira -SP-

Mensagem por ederxc »

Galera .. alhuem teria os caracteres para descomprimir 20cpi na epson


Obs: descomprimir
C:\Xharbour\Xdev\Fw\VSX
Avatar do usuário
gvc
Colaborador
Colaborador
Mensagens: 1270
Registrado em: 23 Ago 2005 10:57

Mensagem por gvc »

Como vc ativou?

Ou mesmo, poste seu e-mail que eu lhe envio o manual da lx-300 em pdf. Os comandos são praticamente iguais para todas as Epson´s.
"TRS-80/Sincler/Apple/PC - Clipper Winter 85, tlink 1.0 [pc 10 MHz - 640K] {NEZ 8000 2Kb RAM}"
{POG - Programação Orientada a Gambiarra}
Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

Mensagem por rochinha »

Amiguinho GVC

Voce tem alguns manuais de impressoras ai me manda se possivel
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
ederxc
Usuário Nível 4
Usuário Nível 4
Mensagens: 619
Registrado em: 15 Set 2006 08:40
Localização: Pedreira -SP-

Mensagem por ederxc »

Meu professor me passou uma função de compressão tanto da epson quanto da HP jato de tinta , mas a descompressão de alguns caracters tipo a 20 CPP
ñ estavam legais ... Me manda ae o manual do que tiver ... VLW


ederxc@itelefonica.com.br
C:\Xharbour\Xdev\Fw\VSX
Avatar do usuário
gvc
Colaborador
Colaborador
Mensagens: 1270
Registrado em: 23 Ago 2005 10:57

Mensagem por gvc »

[Ederxc]
Essa função é compilada ou vc tem o fonte dela?
Se tiver, poste aqui para ser verificada.
Veja que os código da HP que eu postei {Comprimido 20 e normal} permite o que vc esta falando.
O comando das Epson "normalmente" são os comandos usados nas matriciais.
Se a sua função esta usando PCL ou PostScript, vc terá que usar os comando dessas linguagens.

[Rochinha]
Vou mandar alguns que tenho em PDF.
O que mais tenho são os livros que vem com as impressoras.
"TRS-80/Sincler/Apple/PC - Clipper Winter 85, tlink 1.0 [pc 10 MHz - 640K] {NEZ 8000 2Kb RAM}"
{POG - Programação Orientada a Gambiarra}
ederxc
Usuário Nível 4
Usuário Nível 4
Mensagens: 619
Registrado em: 15 Set 2006 08:40
Localização: Pedreira -SP-

Mensagem por ederxc »

********************<comprime impressora>************

Function confimpress()
parameters nome_imp
PUBLIC A,B,C,D,E,F,G,H,I,J,K,L,M,N,impre

If nome_imp='DESKJET'
impre='DESKJET'
A=CHR(27)+'(s16.67H' // ativa comprimido 17,5 cpp
B=CHR(27)+'(s10H' // desativa comprimido 17,5 cpp
C=chr(27)+ "(" + chr(115) + "20" + "H" // ativa comprimido 20 cpp
D=CHR(27)+CHR(40)+CHR(115)+CHR(49)+CHR(48)+CHR(72) // sativa ***********comprimido 20 cpp
E=CHR(27)+'(s12H' // ativa elite
F=CHR(27)+'(s10H' // desativa elite
G=CHR(27)+'(s3B' // ativa negrito
H=CHR(27)+'(s-3B' // desativa negrito
I=CHR(27)+'(s3B' // ativa expandido
J=CHR(27)+'(s-3B' // desativa expandido
K=CHR(27)+'(s1P' // ativa 8 lin/pol
L=CHR(27)+'(s0P' // ativa 6 lin/pol
M=CHR(27)+'&l1O' // ativa landscape
N=CHR(27)+'&l0O' // ativa portrait

endif
If nome_imp='EPSON'
impre='EPSON'
A=CHR(15) // ativa comprimido 17,5 cpp
B=CHR(18) // desativa comprimido 17,5 cpp
C=CHR(27)+'M'+CHR(15) // ativa comprimido 20 cpp
D=CHR(27)+'P' // desativa comprimido 20 cpp
E=CHR(27)+'M' // ativa elite
F=CHR(27)+'P' // desativa elite
G=CHR(27)+'E' // ativa negrito
H=CHR(27)+'F' // desativa negrito
I=CHR(27)+'W'+CHR(1) // ativa expandido
J=CHR(27)+'W'+CHR(0) // desativa expandido
K=CHR(27)+'0' // ativa 8 lin/pol
L=CHR(27)+'2' // ativa 6 lin/pol
M="" // ativa landscape
N="" // ativa portrait

endif
RETURN
C:\Xharbour\Xdev\Fw\VSX
Avatar do usuário
gvc
Colaborador
Colaborador
Mensagens: 1270
Registrado em: 23 Ago 2005 10:57

Mensagem por gvc »

[Epson]
No manual da epson LX300, o ESC M ativa 12 cpi. O ESC P ativa 10 cpi.

Vou procurar algum manual das "jato de tinta" e ver se tem alguma coisa diferente.

[Deskjet]
C=chr(27)+ "(" + chr(115) + "20" + "H" // ativa 20 cpp
D=chr(27)+ "(" + chr(115) + "10" + "H" // ativa 10 cpp
"TRS-80/Sincler/Apple/PC - Clipper Winter 85, tlink 1.0 [pc 10 MHz - 640K] {NEZ 8000 2Kb RAM}"
{POG - Programação Orientada a Gambiarra}
ederxc
Usuário Nível 4
Usuário Nível 4
Mensagens: 619
Registrado em: 15 Set 2006 08:40
Localização: Pedreira -SP-

Mensagem por ederxc »

deu certo aqui .. vlw cara !
C:\Xharbour\Xdev\Fw\VSX
ederxc
Usuário Nível 4
Usuário Nível 4
Mensagens: 619
Registrado em: 15 Set 2006 08:40
Localização: Pedreira -SP-

Mensagem por ederxc »

Pessoal ainda estou precisando dos caracteres para comprimir 20 cpi na epson fx 2170

o que eu tenho é esse chr(27)+'m'+cha(15)

//comprime mas sai em negrito , quero uma impressão rapida e comprimida

VLW.. -:]
C:\Xharbour\Xdev\Fw\VSX
Avatar do usuário
gvc
Colaborador
Colaborador
Mensagens: 1270
Registrado em: 23 Ago 2005 10:57

Mensagem por gvc »

Veja que os caracteres importam. Vc postou caracteres em minusculas.

chr(27)+'m'+cha(15)

o correto seria:

chr(27) + 'M' + chr(15)

Veja se vc não ativou o negrito antes ou se este que vc postou não é o comando de negrito compactado.
"TRS-80/Sincler/Apple/PC - Clipper Winter 85, tlink 1.0 [pc 10 MHz - 640K] {NEZ 8000 2Kb RAM}"
{POG - Programação Orientada a Gambiarra}
Responder