Impressao direto via lpt1 com fontes diferentes
Pessoal estou usando aquele método de impressao direto para lpt1:
AssignFile(Arquivo, ´lpt1´);
Rewrite(Arquivo);
[b:314afcfdb3]Writeln(Arquivo,´Codigo´);[/b:314afcfdb3]
Writeln(Arquivo,´Nome´);
CloseFile(Arquivo);
Estou usando uma impressora procomp Imp 5950. Na impressao do ´código´ acima, gostaria que o numero do código saisse bem grande como fazer?
AssignFile(Arquivo, ´lpt1´);
Rewrite(Arquivo);
[b:314afcfdb3]Writeln(Arquivo,´Codigo´);[/b:314afcfdb3]
Writeln(Arquivo,´Nome´);
CloseFile(Arquivo);
Estou usando uma impressora procomp Imp 5950. Na impressao do ´código´ acima, gostaria que o numero do código saisse bem grande como fazer?
Daniel_mc
Curtidas 0
Respostas
Joaoshi
17/03/2008
Posso estar enganado, mas acredito que você deve passar no writeln o comando para enfatizar o texto. Você deve ler o manual da impressora. Tem bastante informação sobre epson.
E se não for nada disto me desculpe.
Espero ter ajudado.
E se não for nada disto me desculpe.
Espero ter ajudado.
GOSTEI 0
Wanderok
17/03/2008
Tente isto:
AssignFile(Arquivo, ´lpt1´);
Rewrite(Arquivo);
Writeln(Arquivo,chr(27)+chr(´W´)+chr(´1´)+´Codigo´); // Ativa expandido
Writeln(Arquivo,´Nome´);
Writeln(Arquivo,chr(27)+chr(´W´)+chr(´0´)); // Desativa
CloseFile(Arquivo);
AssignFile(Arquivo, ´lpt1´);
Rewrite(Arquivo);
Writeln(Arquivo,chr(27)+chr(´W´)+chr(´1´)+´Codigo´); // Ativa expandido
Writeln(Arquivo,´Nome´);
Writeln(Arquivo,chr(27)+chr(´W´)+chr(´0´)); // Desativa
CloseFile(Arquivo);
GOSTEI 0
Daniel_mc
17/03/2008
Deu erro nesta linha:
Writeln(Arquivo,chr(27)+chr(´W´)+chr(´1´)+´Codigo´);
GOSTEI 0
Daniel_mc
17/03/2008
Quando dá o erro o delphi posiciona o cursor logo após o
o erro é Incompatible types
...chr(´W´)
o erro é Incompatible types
GOSTEI 0
Daniel_mc
17/03/2008
a minha impressora não é epson é uma procomp
GOSTEI 0
Wanderok
17/03/2008
a minha impressora não é epson é uma procomp
vixi !!! :(:(:(
Perdao .....
Mas.... tenho um arquivo DBF contendo TODOS os comandos para 82 (oitenta e duas) impressoras mas nao tem procomp.
Se alguem quiser posso mandar pra voces.
Inclui:
Admate, Alps, Amdek,Axiom ,BrotherBusinessland, C.Itoh, Canon,
Citizen, Emilia, Epson DFX, Epson DX, Epson EX, Epson FX, Epson JX, Epson LQ, LX, MX, RX, T, Fujitsu, HP, IBM, Okidata, Panasonic,
Rima.
GOSTEI 0
Wanderok
17/03/2008
Pessoal,
olhe o arquivo aqui....
é um dbf com todos os comandos para matriciais.
entao é só ´migrar´ esta tabela para seu banco de dados e aplica-la como desejar. Funciona beleza !!!!
http://www.caclipperwebsite.com/impress.shtml#DownLoads
Abracao !!!!
olhe o arquivo aqui....
é um dbf com todos os comandos para matriciais.
entao é só ´migrar´ esta tabela para seu banco de dados e aplica-la como desejar. Funciona beleza !!!!
http://www.caclipperwebsite.com/impress.shtml#DownLoads
Abracao !!!!
GOSTEI 0