Aquí tienes un ejemplo:
Código Delphi
[-]procedure TfrConVentas.SpeedButton4Click(Sender: TObject);
var
Bm:TbookMark;
begin
nOpcion:=0;
nPages:=0;
BM:=DmVil.Fact.GetBookMark;
DmVil.Fact.DisableControls;
DmVil.fact.Filter:='Numero ='+QuotedStr(DmVil.Factnumero.value);
DmVil.fact.Filtered:=True;
Application.CreateForm(TfrLptFactura,frLptFactura);
frlptFactura.LptFactura.Prepare;
nPages:=frlptFactura.LptFactura.QRPrinter.PageCount;
noPcion:=0;
frLptFactura.LptFactura.PreviewModal;
frLptFactura.Close;
DmVil.Fact.GotoBookmark(Bm);
DmVil.Fact.EnableControls;
DmVil.Fact.FreeBookMark(Bm);
end;
procedure TfrLptFactura.LptFacturaBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
lbPaginas.caption:='/ '+IntToStr(nPages);
...
Como verás es preciso hacer un
Prepare antes para saber el número de páginas que va a tener el informe.
Muevo el tema al foro de impresión desde varios.
Un Saludo.