E ai blz!!!
Para imprimir tem que passar o parâmetro para a impressora térmica (pelo
menos a que eu tenho aqui!), para ela poder entender o que vai ser impresso!
Esse código que estou te passando é da Argox uma ótima impressora térmica.
Não sei vai te ajudar mais tai.
Procedure Imprimir;
var P : integer;
F : TextFile;
arq : TStrings;
begin
try
arq:=TStringList.Create;
arq.Add('q800'); //larguna
arq.Add('Q203'); //altura
arq.Add('O'); //Impres. Transf. Térmica
arq.Add('N'); //Limpa Buffer
arq.Add('A25,20,0,3,1,1,R,"TESTE TESTE "); // aqui eu não sei te
explicar todos os parâmetros mais A25 significa texto no inicio na margem 25
o 20 a linha a ser impressa, 3 tamanho da fonte, e o R para marcar o texto
se não quiser usa o N
arq.Add('A25,40,0,3,1,1,N,"TESTE TESTE ");
arq.Add('P1'); // 1 SIGINIFICA A QTDE DE COPIAS A SER IMPRESSA
AssignFile(F,'LPT1');
ReWrite(F);
P := 0;
while P <= Arq.Count-1 do
begin
writeln(F,arq.Strings[P]);
P := P + 1;
end;
CloseFile (F);
finally
arq.Free;
end;
end;
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Miguel - DPF
Enviada em: quarta-feira, 14 de dezembro de 2005 12:23
Para: delphi-br
Assunto: [delphi-br] Imprimir direto na serial - Impressora Termica
Pessoal, achei esta rotina para imprimir direto na serial,
procedure TForm1.Button2Click(Sender: TObject);
var
Imp: TextFile;
produto, valor, cliente: string;
begin
AssignFile(Imp, 'COM2');
Rewrite(Imp);
Writeln(Imp, 'Supermercado TendTudo - Info');
Writeln(Imp, '----------------------------');
Writeln(Imp, DatetoStr(Date));
Writeln(Imp, 'cod',' ','produto',' ','R$',' ','valor');
while not (table1.Eof) do begin
produto:=table1produto.value;
cliente:=FloattoStr(table1codigo_cliente.value);
valor:=FloattoStr(table1valor.value);
Writeln(Imp, cliente,' ',produto,' ','R$',' ',valor, ',00');
table1.next;
Writeln(Imp, #12); {Ejetar folha}
CloseFile(Imp);
end;
ela funciona legal em matriciais, agora tenho dois problemas, estou usando
uma impressora termica microcom 406 que tira etiquetas, via relatorio
imprime bem, com as configurações que eu quero usando rave, porem desde o
instante q envio a impressão ate a emissão demora em media 30 segundos por
tipo de produto e se tiver q emitir um pedido de 50 tipos de produtos demora
muito, eu tentei colocar o codigo acima usando a porta COM2 que é a porta q
a impresora utliza, porem somente tirava etiquetas em branco.
a segunda duvida q tenho é se tem como formatar o texto a ser impresso
agradeço muito pela ajuda
Miguel Villacorta
Controle de Documentação SGQ
DPF Auto Peças Ltda.
Fone +55 11 4446-4100 R 4126
Cajamar - SP
[EMAIL PROTECTED]
_______________________________________________________
Yahoo! doce lar. Faça do Yahoo! sua homepage.
http://br.yahoo.com/homepageset.html
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.rd.yahoo.com/SIG=12fbaccuo/M=386470.7632849.8508174.2369893/D=brc
lubs/S=2137111264:HM/Y=BR/EXP=1134650814/A=3135788/R=2/id=noscript/SIG=12c39
trgo/*http:/ad.br.doubleclick.net/clk;22846485;12120066;a?http://www.hoteis.
com>
<http://br.i1.yimg.com/br.yimg.com/i/br/ads6/1122_lrec_hotelscom.gif>
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do <http://br.yahoo.com/info/utos.html> Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
