Códigos para impressão a partir do Clipper. Achei um monte!

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Avatar do usuário
miracle
Usuário Nível 3
Usuário Nível 3
Mensagens: 117
Registrado em: 14 Jun 2007 16:28
Localização: Sao Paulo SP

Códigos para impressão a partir do Clipper. Achei um monte!

Mensagem por miracle »

Bom dia, Amigos! Estava fuçando na internet e encontrei uma lista bastante grande de comandos utilizáveis em Clipper para impressão em diversas impressoras. Ei-los:

Exemplo de como imprimir
=================
SET DEVICE TO PRINTER
SET PRINTER ON
@ 01, 00 SAY CHR(27)+CHR(15)
@ 02, 00 SAY "Esta linha está comprimida na Epson"
@ 03,00 SAY CHR(15)+CHR(27)+'M'
@ 04, 00 SAY "Esta linha está super comprimida na Epson"
@ 05, 00 SAY CHR(18)
@ 06, 00 SAY "Esta linha está normal na Epson"
SET DEVICE TO SCREEN
SET PRINTER OFF

Canon BJ-200 = Citizen 200 GX = Emília PC = Rima 180/220
========================================================
Imprimir normal CHR(18)
Imprimir Comprimido CHR(27)+CHR(15)
Imprimir Super Comprimido CHR(30)+'5'

Deskjet HP 500C
===============
Imprimir normal CHR(27)+CHR(40)+CHR(115)+"8"+CHR(72)+CHR(27)+CHR(38)+
CHR(108)+"5"+CHR(68)+CHR(27)+CHR(38)+CHR(108)+"66"+CHR(80)
Imprimir Comprimido CHR(27)+CHR(40)+CHR(115)+"16.67"+CHR(72)+CHR(27)+
CHR(38)+CHR(108)+"8"+CHR(68)+CHR(27)+CHR(38)+CHR(108)+"90"+CHR(80)
Imprimir Super Comprimido CHR(27)+CHR(40)+CHR(115)+"23"+CHR(72)+CHR(27)+CHR(38)+
CHR(108)+"10"+CHR(68)+CHR(27)+CHR(38)+CHR(108)+"90"+CHR(80)

Epson FX/MX/LQ = Epson 2000
===========================
Imprimir normal CHR(18)
Imprimir Comprimido CHR(27)+CHR(15)
Imprimir Super Comprimido CHR(15)+CHR(27)+'M'

Impressora Epson LQ 2070
========================
Outro tipo de condensação de caracteres menor que o CHR(15)
CHR(27)+"!"

Epson Stylus (Esc/P2)
=====================
Imprimir normal CHR(18)
Imprimir Comprimido CHR(27)+CHR(15)
Imprimir Super Comprimido CHR(27)+CHR(15)+""+CHR(27)+CHR(77)

ExecJet - Lexmark
=================
Imprimir normal CHR(27)+CHR(38)+CHR(107)+CHR(52)+CHR(83)+CHR(27)+CHR(38)+
CHR(108)+"5"+CHR(68)+CHR(27)+CHR(38)+CHR(108)+"66"+CHR(80)
Imprimir Comprimido CHR(27)+CHR(38)+CHR(107)+CHR(50)+CHR(83)+CHR(27)+CHR(38)+
CHR(108)+"8"+CHR(68)+CHR(27)+CHR(38)+CHR(108)+"90"+CHR(80)
Imprimir Super Comprimido CHR(27)+CHR(40)+CHR(115)+"23"+CHR(72)+CHR(27)+CHR(38)+CHR(108)+
"10"+CHR(68)+CHR(27)+CHR(38)+CHR(108)+"90"+CHR(80)

Deskjet HP = Laserjet II = Laserjet III
=======================================
Imprimir normal CHR(27)+CHR(40)+CHR(115)+"8"+CHR(72)
Imprimir Comprimido CHR(27)+CHR(40)+CHR(115)+"16.67"+CHR(72)
Imprimir Super Comprimido CHR(27)+CHR(40)+CHR(115)+"23"+CHR(72)

Comandos Especiais - Matricial
******************************
Epson Compatível - Quase todos os comandos!

Atenção: Estes comandos fazem distinção de case (maiúsc./minúsc.),
destarte, devem ser enviados assim como aparecem neste elenco.

Espaçamento de linha
1/8" CHR(27)+"0"
7/72" CHR(27)+"1"
1/6" CHR(27)+"2"
n/216" CHR(27)+"3"+n
n/72" CHR(27)+"A"+n
Tamanho dos Caracteres
10 cpi CHR(27)+"P"
12 cpi CHR(27)+"M"
Ativar Condensado CHR(27)+CHR(15)
Desativar Condensado CHR(18)
Tamanho Duplo (uma linha) CHR(27)+CHR(14)
Cancelar Tamanho Duplo (uma linha) CHR(20)
Ativar tamanho Duplo CHR(27)+"W"+"1"
Destivar tamanho Duplo CHR(27)+"W"+"0"
Melhoramento de Impressão
Ativar Negrito CHR(27)+"E"
Desativar Negrito CHR(27)+"F"
Ativar passada dupla CHR(27)+"G"
Desativar passada dupla CHR(27)+"H"
Ativar Sobre-Escrito CHR(27)+CHR(83)+"0"
Ativar Sub-Escrito CHR(27)+CHR(83)+"1"
Desativar Sobre/Sub-Escrito CHR(27)+"T"
Ativar Itálico CHR(27)+"4"
Desativar Itálico CHR(27)+"5"
Ativar sublinhado CHR(27)+CHR(45)+"1"
Desativar sublinhado CHR(27)+CHR(45)+"0"
Sobreposição dos estilos de impressão
Impressão em Draft (+rápida) CHR(27)+"x0"
Impressão em NLQ (+Trabalhada) CHR(27)+"x1"
Seleciona a fonte Roman (Só NLQ) CHR(27)+"k0"
Seleciona a fonte Sans Serif (Só NLQ) CHR(27)+"k1"
Seleção Master (combo) CHR(27)+CHR(33)+"n"
_O valor de n é a soma dos valores correspondentes ao
efeito da combinação desejada, os valores que você deve
somar para obter o efeito combo são os seguintes:

10 cpi = 0

12 cpi = 1

Condensado = 4

Negrito = 8

Duplo-passe = 16

Tamanho duplo = 32

Itálico = 64

Sublinhado = 128

Tudo isso acima foi retirado do site:
http://www.caclipperwite.com/impress.shtml#comandos (onde também tem mais coisas!)

O Maligno também disponibilizou no site dele vários arquivos a esse respeito (me socorrendo num tópico anterior):
http://pub.buzinello.com/index.php?d=./manuals/

Valeu, gente! :)) :* :|< :D
Clipper 5.2e + DBFCDX + Exospace 1.0g
Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Mensagem por Maligno »

Acho que ainda tenho, nos cafundós do meu HD, um banco de dados com comandos para dezenas de impressoras. Tem várias das quais eu nunca nem ouvi falar. Se quiser,...
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1717
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

Mensagem por alaminojunior »

Talvez pouco importe o que vou dizer. Mas, gostaria de cumprimentar nosso amigo Maligno, pela praticidade, facilidade e desenvoltura, sempre muito bem acompanhadas de bom humor e objetividade, ao se expressar no fórum. Confesso que de alguma forma me identifiquei com ele. :D :xau
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Mensagem por sygecom »

Srs. Desculpa antecipadas....
Lembrando os mesmos comandos vale para xharbour free tambem...não muda nada !! sem contar que alem desses ai que o Colega postou....tem inumeras outras possibilidades de impressão !!!...ex:
https://pctoledo.org/forum/viewtopic.php?t=5764

Abraços
Leonardo Machado
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Mensagem por Maligno »

Não é possível usar isso em Clipper. Só em XHarbour.
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Mensagem por sygecom »

Leia com calma...ninguem disse que o link era para Clipper....vai com calma !!! os comandos da Lista do Miracle, que são para clipper e xharbour.
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Grings
Usuário Nível 3
Usuário Nível 3
Mensagens: 340
Registrado em: 18 Ago 2004 13:51

Mensagem por Grings »

Sygecon, não funcionou. Baixei do seu link e o Imp.exe também não funcionou, não acontece nada ao executar o programa. Impressora padrão Epson C45.
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Mensagem por sygecom »

Veja !! o codigo fonte do exemplo que esta no link !!! ele pega um Arquivo Texto no C:\
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Mensagem por sygecom »

Gere um arquivo no seu C:\ com o nome TEXTO.PRN e execute o IMP.EXE de qualquer lugar !!!

Obs: veja que eu faço tmb. no mesmo exemplo um tratamento para usar o PDF creator...caso ele ache essa porta !!! ele cria o arquivo para ela...mesmo que ela não seja a porta padrão !!!

LOCAL aPrn := PRINTERPORTTONAME( "PDF", .T. )

Qualquer duvida posta aqui !!!

Abraços
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Mensagem por sygecom »

Para completar, tenho tb. um exemplo de uso que fica no Tray...e tenho tb. um que faz um preview usando o PDF que é gerado pela LIB da contrib...facilmente...se quiser ..pode me add no MSN que te envio !!

suporte@sygecom.com.br


Abraços
Leonardo Machado
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Responder