Bom dia estimada,
Tenho alguns códigos aqui. Não sei se é isto mesmo que queres, mas lá vai.
(também não sei se estão muito corretos, pois tá meio antigo);
if NomeImp = pfPadraoIBM then
begin
pCompr175 := #15; tCompr175 := #18;
pCompr20 := #30+'5'; tCompr20 := #30+'0';
pElite12 := #30+'2'; tElite12 := #30+'0';
pNegrito := #27+'E'; tNegrito := #27+'F';
pExpand := #27+'W'+#1; tExpand := #27+'W'+#0;
p8linpol := #27+'0'; t8linpol := #27+'2';
pEjetar := #12; pLinPPage := #27+'C'; // colocar mais ->
+chr(qt de linhas)
end;
if NomeImp = pfDeskjet500 then
begin
pCompr175 := #27+'(s16.67H'; tCompr175 := #27+'(s10H';
pCompr20 := #27+'(s16.67H'; tCompr20 := #27+'(s10H';
pElite12 := #27+'(s12H'; tElite12 := #27+'(s10H';
pNegrito := #27+'(s3B'; tNegrito := #27+'(s-3B';
pExpand := #27+'(s3B'; tExpand := #27+'(s-3B';
p8linpol := #27+'(s1P'; t8linpol := #27+'(s0P';
pEjetar := #12; pLinPPage := #27+'C'; // colocar mais ->
+chr(qt de linhas)
end;
if NomeImp = pfDeskjet600 then
begin
pCompr175 := #27+'(s16.67H'; tCompr175 := #27+'(s10H';
pCompr20 := #27+'(s16.67H'; tCompr20 := #27+'(s10H';
pElite12 := #27+'(s12H'; tElite12 := #27+'(s10H';
pNegrito := #27+'(s3B'; tNegrito := #27+'(s-3B';
pExpand := #27+'(s3B'; tExpand := #27+'(s-3B';
p8linpol := #27+'(s1P'; t8linpol := #27+'(s0P';
pEjetar := #12; pLinPPage := #27+'C'; // colocar mais ->
+chr(qt de linhas)
end;
if NomeImp = pfRima then
begin
pCompr175 := #15; tCompr175 := #18;
pCompr20 := #27+'['+#5; tCompr20 := #27+'['+#0;
pElite12 := #27+'['+#2; tElite12:= #27+'['+#1;
pNegrito := #27+'E'; tNegrito := #27+'F';
pExpand := #27+'W'+#1; tExpand := #27+'W'+#0;
p8linpol := #27+'0'; t8linpol := #27+'2';
pEjetar := #12; pLinPPage := #27+'C'; // colocar mais ->
+chr(qt de linhas)
end;
if NomeImp = pfEpson9pinos then
begin
pCompr175 := #15; tCompr175 := #18;
pCompr20 := #27+'M'+#15; tCompr20 := #27+'P';
pElite12 := #27+'M'; tElite12 := #27+'P';
pNegrito := #27+'E'; tNegrito := #27+'F';
pExpand := #27+'W'+#1; tExpand := #27+'W'+#0;
p8linpol := #27+'0'; t8linpol := #27+'2';
pEjetar := #12; pLinPPage := #27+'C'; // colocar mais ->
+chr(qt de linhas)
end;
if NomeImp = pfEmiliaPS then
begin
pCompr175 := #15; tCompr175 := #18;
pCompr20 := #30+'5'; tCompr20 := #30+'0';
pElite12 := #30+'2'; tElite12 := #30+'0';
pNegrito := #27+'g'; tNegrito := #27+'h';
pExpand := #27+'W'+#1; tExpand := #27+'W'+#0;
p8linpol := #27+'0'; t8linpol := #27+'2';
pEjetar := #12; pLinPPage := #27+'C'; // colocar mais ->
+chr(qt de linhas)
end;
if NomeImp = pfEpsonStylusC2 then
begin
pCompr175 := #15; tCompr175 := #18;
pCompr20 := #27+'M'+#15; tCompr20 := #27+'P';
pElite12 := #27+'M'; tElite12 := #27+'P';
pNegrito := #27+'E'; tNegrito := #27+'F';
pExpand := #27+'W'+#1; tExpand := #27+'W'+#0;
p8linpol := #27+'0'; t8linpol := #27+'2';
pEjetar := #12; pLinPPage := #27+'C'; // colocar mais ->
+chr(qt de linhas)
end;
if NomeImp = pfCanonBJC4000 then
begin
pCompr175 := #15; tCompr175 := #18;
pCompr20 := #27+'M'+#15; tCompr20 := #27+'P';
pElite12 := #27+'M'; tElite12 := #27+'P';
pNegrito := #27+'E'; tNegrito := #27+'F';
pExpand := #27+'W'+#1; tExpand := #27+'W'+#0;
p8linpol := #27+'0'; t8linpol := #27+'2';
pEjetar := #12; pLinPPage := #27+'C'; // colocar mais ->
+chr(qt de linhas)
end;
if NomeImp = pfEpson24pinos then
begin
pCompr175 := #15; tCompr175 := #18;
pCompr20 := #27+'M'+#15; tCompr20 := #27+'P';
pElite12 := #27+'M'; tElite12 := #27+'P';
pNegrito := #27+'E'; tNegrito := #27+'F';
pExpand := #27+'W'+#1; tExpand := #27+'W'+#0;
p8linpol := #27+'0'; t8linpol := #27+'2';
pEjetar := #12; pLinPPage := #27+'C'; // colocar mais ->
+chr(qt de linhas)
end;
Saudações;
---
[]s
Alexandre
Frase da semana: Apenas uma guerra é permitida à espécie humana: a guerra
contra a extinção (Isaac Asimov)
Frase de la semana: Solo una guerra se permite al hombre: la guerra contra
el desaparición (Isaac Asimov)
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de maniacapordelphi
Enviada em: terça-feira, 9 de janeiro de 2007 06:39
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Códigos de Impressoras Matriciais/Jato de
Tinta/Laser
Eu baixei os componentes do Fortes Report, mas no arquivo zip só veio os
dcu. Não tem os fontes. Sabe onde consigo algum fonte que contenha esses
código de impressora?
Mani
--- Em delphi-br@yahoogrupos.com.br, Cyclone - Programação
<[EMAIL PROTECTED]> escreveu
>
> Baixe o Pacote de Componentes Fortes Report que lá tem como você
obter de várias impressoras.
>
>
> Sidnei Rodrigues de Castro
> Programador
>
> ----- Original Message -----
> From: maniacapordelphi
> To: delphi-br@yahoogrupos.com.br
> Sent: Tuesday, January 02, 2007 8:39 AM
> Subject: [delphi-br] Códigos de Impressoras Matriciais/Jato de
Tinta/Laser
>
>
> Em primeiro lugar, um Feliz 2007 pra todos vocês.
> Estou precisando da relação dos códigos de impressoras
matriciais,
> Jato de tinta e laser, todos os modelos possíveis para fazer
> tratamento de impressão estilo matricial. Códigos de : negrito,
> itálico, fontes, avanço de papel,fonte condensada, fonte normal,
fonte
> expandida. Alguém teria isso pra me ajudar?
> Mani
>
>
>
