Imprimir un DataSet

[[Lepe]]

echale un vistazo a:GRIDLIST.ZIP de la página http://www.qusoft.com/stanlegacy.html

Eso sí, olvidate de hacer listados complejos agrupando por campos y demás, esto es un listado simple.

Saludos

[[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;

[Neftali [Germán.Estévez]]

Otra opción es mirar éste hilo

Los componentes tb te pueden servir a tí.

[Osorio]

Buena alternativa la de Lepe, la estoy usando por ahora y me esta dando resultado.

Gracias a todos,

Saludos

[[Lepe]]

Es muy importante que veas con tranquilidad las necesidades que vas a tener, ya que esa función es muy poderosa.... ya ves, una simple llamada y tienes el listado. Por contra, si necesitas agregarle colores al listado, por ejemplo, la cosa se complica mucho para tí.

Para que tengas una idea, lo que hace esa función es contruir el informe mediante una banda detalle y componentes del tipo TQRExpr, en su propiedad Expression, pone el nombre del campo.

Añadiendo colores, o formatos de números:
Una vez construido el listado, pero justo antes de hacer el PreviewModal, es donde tendrías que recorrer la banda detalle (por código), mirando si el Componente es un TQRExpr, despues,miras la propiedad Expression para ver si es el campo que quieres Modificar, por último, modificas la propiedad en cuestión.

Un ejemplo práctico para cambiar el número de página: (sabiendo que QRCreateList solo añade un control en el pie de pagina)

Código Delphi [-]
    with TQRExpr(q.Bands.PageFooterBand.Controls[0]) do
      expression := QuotedStr('Pág. ') + ' +PAGENUMBER';
    // PAGENUMBER es una variable que entiende QUICKREPORTS

Saludos