PC Toledo

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! ) :* :|<

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,...

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. :xau

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

https://pctoledo.org/forum/viewtopic.php?t=5764

Não é possível usar isso em Clipper. Só em XHarbour.

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.

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.

Veja !! o codigo fonte do exemplo que esta no link !!! ele pega um Arquivo Texto no C:\

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

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