Qreport??

[marcoszorrilla]

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.