Imprimir un DataSet

[[Lepe]]

Ese ejemplo es dificil de digerir, así que te he preparado algo más simple. Necesitas un TTable.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var q:TQuickRep;
    listaCampos:TStringList;
    i:Integer;
begin
   listaCampos:= TStringList.Create;
   try

      // lista de campos a incluir en el informe, por defecto, todos.
     for i:=0 to Table1.Fields.Count-1 do
      listaCampos.Add(Table1.Fields[i].FieldName);
    Table1.Open;
    q:=nil;
    QRCreateList(tcustomquickrep(q),nil,Table1,'Listado Principal',listaCampos);
    q.Previewmodal;

   finally
      listaCampos.Free;
      FreeAndNil(q);
   end;
end;

los uses que necesitarás, tarde o temprano, son : quickrpt, qrextra, qrprntr, qrctrls;