Página 1 de 1
Como Imprimir Compactado
Enviado: 23 Nov 2004 08:29
por Joel Ramos
Ola Amigos,
Amigos algum de vcs podem passar o CHR(??) para imprimir compactado em impressoras HP-Desk Jet 692C ou da mesma série, pois o sistemas da empresa imprime normalmente ( compactado ) em impressoras Epson Stylus Colors 600, agora a irmã do dona da empresa trouxe sua impressora ( HP ), só que os relatórios não saem compactados, algum de vcs podem me ajudar.
Espero respostas ainda hoje, pois trabalho aqui na empresa somente um dia na semana ( as 3ª feiras ).
Agradeço desde já a toos.
Abraços,
Joel Ramos
Enviado: 23 Nov 2004 09:31
por Daniel
Esta funcao eu peguei num saite o link esta junto
Código: Selecionar todos
*
* Rotina demostracao de impressao em impressora HP serie 600
*
* Aldisio's Home-Page
* http://www.geocities.com/capecanaveral/galaxy/2310
* Email: aldisio@hotmail.com
*
* Basta compilar e roda, foi testado em impressora 560c e 692c funcionando perfeitamente
*
* Exemplo de expansao de caracteres, impressao em cores, bold e mais nao deixe de testar
*
hp_reset = chr(27)+chr(69) // Reseta a impressora
hp_pp_A4 = chr(27)+chr(38)+chr(108)+chr(50)+chr(54)+chr(65) // Formato do papel A4
hp_pp_DF = chr(27)+chr(38)+chr(108)+chr(48)+chr(65) // Formato do papel Default
hp_pg_ret = chr(27)+chr(38)+chr(108)+chr(49)+chr(79) // Formato de pagina retrato
hp_pg_nor = chr(27)+chr(38)+chr(108)+chr(48)+chr(79) // Formato de pagina normal
*
* Voce pode chegar a qualquer tamanho de caracter trocando o numero de controle
*
* Troque aqui
* ||
* \/
hp_ct_05 = chr(27)+"(s05H" // Tamanho do caracter 10 cpp = default
hp_ct_10 = chr(27)+"(s10H" // Tamanho do caracter 10 cpp = default
hp_ct_15 = chr(27)+"(s15H" // Tamanho do caracter 15 cpp
hp_ct_20 = chr(27)+"(s20H" // Tamanho do caracter 20 cpp
hp_ct_30 = chr(27)+"(s30H" // Tamanho do caracter 30 cpp
hp_ct_bol = chr(27)+chr(40)+chr(115)+chr(51)+chr(66) // Escreve em bold
hp_ct_ebo = chr(27)+chr(40)+chr(115)+chr(51)+chr(66) // Escreve em extra bold
hp_ct_nor = chr(27)+chr(40)+chr(115)+chr(48)+chr(66) // Retira bold e volta ao normal
hp_econom = CHR(27)+CHR(40)+CHR(115)+CHR(49)+CHR(81) // Formato de impressao modo economico
hp_normal = CHR(27)+CHR(40)+CHR(115)+CHR(50)+CHR(81) // Formato de impressao modo carta normal
hp_cor_on = chr(27)+chr(42)+chr(114)+chr(45)+chr(51)+chr(85) // Habilita impressao em cores
hp_cor_of = chr(27)+chr(42)+chr(114)+chr(49)+chr(85) // Desabilita impressao em cores
Hp_cor1 = hp_cor_on+chr(27)+chr(42)+chr(118)+"1"+chr(83)
Hp_cor2 = hp_cor_on+chr(27)+chr(42)+chr(118)+"2"+chr(83)
Hp_cor3 = hp_cor_on+chr(27)+chr(42)+chr(118)+"3"+chr(83)
Hp_cor4 = hp_cor_on+chr(27)+chr(42)+chr(118)+"4"+chr(83)
Hp_cor5 = hp_cor_on+chr(27)+chr(42)+chr(118)+"5"+chr(83)
Hp_cor6 = hp_cor_on+chr(27)+chr(42)+chr(118)+"6"+chr(83)
hp_cor7 = hp_cor_on+chr(27)+chr(42)+chr(118)+"7"+chr(83)
hp_cor11 = hp_cor_on+chr(27)+chr(42)+chr(118)+"11"+chr(83)
set print on
set console off
?? hp_reset
? "Aldisio's Home-Page - www.geocities.com/capecanaveral/galaxy/2310 - aldisio@hotmail.com"
?? chr(13)+replicate("°",80)
?
? "Comando de impressao HP serie 600"
?? chr(13)+replicate("°",80)
?
? "Acionamento modo economico"
?? chr(13)+replicate("°",80)
?? hp_econom
? "Teste de impressao em modo economico 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?
? "Troca de caracteres por polegada"
?? chr(13)+replicate("°",80)
?? hp_ct_15
? "Teste de impressao em modo 15 cpp 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_ct_20
? "Teste de impressao em modo 20 cpp 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_ct_30
? "Teste de impressao em modo 30 cpp 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_ct_05
? "Teste de impressao em modo 05 cpp 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_ct_10
? "Teste de impressao em modo 10 cpp 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?
? "Negritando impressao"
?? chr(13)+replicate("°",80)
?? hp_ct_nor
? "Teste de impressao em modo normal 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_ct_bol
? "Teste de impressao em bold 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_ct_ebo
? "Teste de impressao em extra bold 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_ct_nor
? "Teste de impressao em modo normal 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?
? "Impressao em cores"
?? chr(13)+replicate("°",80)
?? hp_cor1
? "Teste de impressao em cor (azul claro) 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_cor2
? "Teste de impressao em cor (vermelho claro) 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_cor3
? "Teste de impressao em cor (azul escuro) 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_cor4
? "Teste de impressao em cor (amarelo) 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_cor5
? "Teste de impressao em cor (verde) 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_cor6
? "Teste de impressao em cor (vermelho escuro) 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_cor7
? "Teste de impressao em cor (preto) 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_cor11
? "Teste de impressao em cor (azul escuro) 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_cor7
?
?
?? hp_ct_05
? padc("www.geocities.com/capecanaveral/galaxy/2310",40)
?? chr(13)+replicate("°",40)
eject
?? hp_reset
?? hp_pg_ret
?? hp_pp_A4
? "Aldisio Home-Page - www.geocities.com/capecanaveral/galaxy/2310 - aldisio@hotmail.com"
?? chr(13)+replicate("°",80)
?
? "Comando de impressao HP serie 600 - Modo Retrato"
?? chr(13)+replicate("°",80)
?
? "Acionamento modo economico"
?? chr(13)+replicate("°",80)
?? hp_econom
? "Teste de impressao em modo economico 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?
? "Troca de caracteres por polegada"
?? chr(13)+replicate("°",80)
?? hp_ct_15
? "Teste de impressao em modo 15 cpp 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_ct_20
? "Teste de impressao em modo 20 cpp 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_ct_30
? "Teste de impressao em modo 30 cpp 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_ct_05
? "Teste de impressao em modo 05 cpp 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_ct_10
? "Teste de impressao em modo 10 cpp 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?
? "Negritando impressao"
?? chr(13)+replicate("°",80)
?? hp_ct_nor
? "Teste de impressao em modo normal 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_ct_bol
? "Teste de impressao em bold 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_ct_ebo
? "Teste de impressao em extra bold 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_ct_nor
? "Teste de impressao em modo normal 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?
? "Impressao em cores"
?? chr(13)+replicate("°",80)
?? hp_cor1
? "Teste de impressao em cor (azul claro) 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_cor2
? "Teste de impressao em cor (vermelho claro) 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_cor3
? "Teste de impressao em cor (azul escuro) 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_cor4
? "Teste de impressao em cor (amarelo) 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_cor5
? "Teste de impressao em cor (verde) 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_cor6
? "Teste de impressao em cor (vermelho escuro) 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_cor7
? "Teste de impressao em cor (preto) 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_cor11
? "Teste de impressao em cor (azul escuro) 1 2 3 4 5 6 7 8 9 0 a b c d e f g"
?? hp_cor7
?
?
?? hp_ct_05
? padc("www.geocities.com/capecanaveral/galaxy/2310",40)
?? chr(13)+replicate("°",40)
eject
set print off
set console on
Enviado: 23 Nov 2004 09:49
por Joel Ramos
Valeu Daniel vou testar, qq duvida volto a pedir um help a galera.
Abraços,
Joel Ramos
Enviado: 23 Nov 2004 11:04
por vagucs
O PRWIN permite compactações de caracteres até a mais de 160 e você pode programar o comando da impressora para aceitá-lo.
Veja em meu site.