Imprimir um arquivo txt pelo Delphi

[Lancellotte 0]

Ae galera.. eu to com um probleminha aqui...

 

Eu preciso pegar os dados da compra... depois tenho que imprimir... isso eh facil..

eh soh dar o comando Print... soh que o problema eh que quando eu uso uma impressora

da porta Serial nao tah funcionando... x.x

 

eu to fazendo +/- assim

 

var

Arquivo:textfile;

begin

AssignFile(Arquivo,'c:\Teste.txt');

Rewrite(Arquivo);

writeln(Arquivo,'Teste de Impressão');

print;

closefile(Arquivo);

end;

 

 

Vlw's

[Lancellotte 0]

o Titulo ficou meio sem Nexo neh xD

 

eh que eu estou com 3 impressoras conectadas no PC ..

e eu queria saber como eu faço para definir qual impressora vou usar...

[Lancellotte 0]

Ai Galera .. eu consegui jogar os dados que eu queria imprimir direto prar a Porta Com1

 

Ficou assim :

 

Procedure CriarTXT(Var Arquivo:TextFile);
var
  linha:string;
begin
	  Write (Arquivo,#13);
	  num_linhas:=Frm_Caixa.memo1.Lines.Count;
	  for i:=0 to num_linhas-1 do
	  begin
		linha:=Frm_Caixa.memo1.Lines.Strings[i];
		writeln(Arquivo,linha);
	  end;
	  writeln(Arquivo,'');
	  num_linhas:=Frm_Caixa.mem_items.Lines.count;
	  for i:=0 to num_linhas-1 do
		begin
		  linha:=Frm_Caixa.mem_items.Lines.Strings[i];
		  writeln(Arquivo,linha);
		end;					
end;

procedure Tfrm_caixa.BtnImprimirClick(Sender: TObject);
Var
ArqPrn:TextFile;
LinhaAtual:Integer;
begin
  LinhaAtual:=0;
  AssignFile(ArqPrn,'COM1');
  Rewrite(ArqPrn);
  CriarTxt(ArqPrn);
  CloseFile(ArqPrn);
end;

Flw's