Impressora Matricial

  AssignFile(Arquivo,´LPT1´);
  Rewrite(Arquivo);  
Writeln(Arquivo,´--------------------------------------------------------´);
  Writeln(Arquivo,´--------------Produto(s) Vendido(s)´);
  Writeln(Arquivo,´-Descricao-----------------------------------Qtd---´);
   DMFechamento.CDProdutos.First;
   Tot_peca := 0;
   while not DMFechamento.CDProdutos.eof do
   begin
    Produto_Vend  := Tira_Acento(DMFechamento.CDProdutosDESCRICAO.Value);
    Qtd_Vend      := FloatToStrF(DMFechamento.CDProdutosQTDE.AsFloat,FFNumber,15,2);
    Tot_peca      := Tot_peca+DMFechamento.CDProdutosQTDE.AsInteger;

    For I:=Length(Produto_Vend) to 40 do
    Produto_Vend := Produto_Vend+´ ´;
    For I:=Length(Qtd_Vend) to 7 do
    Qtd_Vend :=´ ´+ Qtd_Vend;
    Writeln(Arquivo,Produto_Vend+Qtd_Vend);
    DMFechamento.CDProdutos.Next;
   end;
  Writeln(Arquivo,´-----------------------------Total de Pecas: ´+IntToStr(Tot_peca));
  Writeln(Arquivo,´´);
  Writeln(Arquivo,´´);
  Writeln(Arquivo,´´);
  CloseFile(Arquivo);

   end;