Duda con el Qreport.

[[Lepe]]

Todo un honor que se reabra un hilo en el que he participado.

como todo... hay varias formas de hacerlo, en su momento, y con prisas yo opté por hacerla de esta forma.

Código Delphi [-]
var :Tprevi;
implementation 
procedure botonClick(...)
begin
try
// introduzco en ListaCAmpos(stringlist) los campos que quiero que se vean de la tabla, despues

    v:=  TPrevi.Create(FrmMdi);
    FreeAndNil(v.pquickreport); 
    qrextra.QRCreateList(tcustomquickrep(v.pQuickreport) ,v , DTM.qryClientes,
                          'Clientes' ,ListaCampos);

    with TQRExpr(v.pQuickreport.Bands.PageFooterBand.Controls[0]) do
      expression := QuotedStr('Pág. ') +'+ PAGENUMBER   ';
// PAGENUMBER es una variable que entiende QUICKREPORTS


  v.pQuickreport.OnPreview:= ListadoOnPreview;
  v.pQuickreport.PreviewModal;//eless  ;

finally
  ListaCampos.Free;
end;


procedure tfrmclientes.ListadoOnPreview(Sender:TObject);
begin
  // en el evento Onpreview del TQuickRep
  // creado el previ al dar al boton imprimir
  with v do
  begin
    Caption := Caption + ' - Clientes';
//    pQuickReport := TQuickRep(Previ.pQuickreport);
    Preview.QRPrinter := TQRPrinter(Sender);
    pQuickreport.ReportTitle:= ' Clientes';
    pQuickreport.Font.Name:= 'Courier New';
    Show; // no uso preview, para que pueda continuar haciendo otras cosas
  end;
end;