Fórum Duvidas:-- Impressoras Matriciais Formatação Fonte #291286

  zqroEtiqueta.First;
  while not zqroEtiqueta.Eof do
  begin
    Writeln(arq,´´);
    Writeln(arq,´              ´ + zqroEtiqueta.Fields[0].AsString);
    Writeln(arq,´  Safra: ´ + zqroEtiqueta.Fields[1].AsString + ´       Nro.Fabr: ´ + zqroEtiqueta.Fields[3].AsString + ´        Tipo: ´+zqroEtiqueta.Fields[6].AsString);
    Writeln(arq,´  Data: ´ + zqroEtiqueta.Fields[4].AsString + ´       Data Valid.: ´ + zqroEtiqueta.Fields[7].AsString);
    Writeln(arq,´  Hora: ´ + zqroEtiqueta.Fields[5].AsString + ´               Peso Liquido: ´ + zqroEtiqueta.Fields[2].AsString);
    Writeln(arq,´´);
    zqroEtiqueta.Next;
  end;