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
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 ';
v.pQuickreport.OnPreview:= ListadoOnPreview;
v.pQuickreport.PreviewModal;
finally
ListaCampos.Free;
end;
procedure tfrmclientes.ListadoOnPreview(Sender:TObject);
begin
with v do
begin
Caption := Caption + ' - Clientes';
Preview.QRPrinter := TQRPrinter(Sender);
pQuickreport.ReportTitle:= ' Clientes';
pQuickreport.Font.Name:= 'Courier New';
Show; end;
end;