Fórum Dúvidas c/ writeln #264454

AssignFile(Impressora,´LPT1:´);
      Rewrite(Impressora);
      Writeln(impressora);
      Writeln(Impressora, Format(´¬35s´, [´Venda´]));
                  (Impressora,2715+´============================================================´);
      Write (impressora,Format(´¬-20s´,[´Data:´+DatetoStr(now)]));
      writeln(impressora,Format(´¬30s´,[´Hora:´+timetoStr(time)]));
      Writeln(Impressora,Format(´¬00s´,[´Codigo       Descricao´]));
      Writeln(Impressora,Format(´¬00s´,[´Qtde         Valor Unitario              Subtotal´]));
      Writeln(Impressora,2715+´============================================================´);
      datamodule1.ClientDetalhe.First;
      while not datamodule1.ClientDetalhe.Eof do
      Begin
        Write(Impressora,Format(´¬-13s´,[datamodule1.clientdetalhe.fieldbyname(´cod_produto´).asstring]));
        Writeln(Impressora,Format(´¬-30s´,[datamodule1.clientdetalhe.fieldbyname(´desc_produto´).asstring]));
        Write(Impressora,Format(´¬-8.2n´,[datamodule1.clientdetalhe.fieldbyname(´qtd_produto´).asfloat]));
        Write(Impressora,Format(´¬-15.2m´,[datamodule1.clientdetalhe.fieldbyname(´preco_unit´).ascurrency]));
        Writeln(Impressora,Format(´¬-15.2m´,[datamodule1.clientdetalhe.fieldbyname(´valor_total´).ascurrency]));

        Writeln(Impressora);
        datamodule1.ClientDetalhe.next;
      end;
        Writeln(Impressora,2715+´============================================================´);
       //pula três linhas
      Writeln(Impressora);
      Writeln(impressora);
      Writeln(impressora);
      CloseFile(impressora);