Comprimir deskjet 640c
Moderador: Moderadores
Comprimir deskjet 640c
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 ??
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
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"
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}
{POG - Programação Orientada a Gambiarra}
FUNCIONOU !
usei esta sua compakitação GVC e deu certo .. Agradeço aos amigos a atenção!
C:\Xharbour\Xdev\Fw\VSX
- rochinha
- Administrador

- Mensagens: 4664
- Registrado em: 18 Ago 2003 20:43
- Localização: São Paulo - Brasil
- Contato:
Amiguinho GVC
Voce tem alguns manuais de impressoras ai me manda se possivel
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.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
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
ñ estavam legais ... Me manda ae o manual do que tiver ... VLW
ederxc@itelefonica.com.br
C:\Xharbour\Xdev\Fw\VSX
[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.
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}
{POG - Programação Orientada a Gambiarra}
********************<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
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
[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
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}
{POG - Programação Orientada a Gambiarra}
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.
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}
{POG - Programação Orientada a Gambiarra}


