Impresión facturas Master-Detail

[[Lepe]]

Da un clic sobre el QRFooter, tiene una propiedad AlignToBottom y ponla a True, despues de esto, solo tienes que hacer el pie de página tan alto como quieras para que imprima en la posición determinada.

Tambien puedes ponerle un Margen inferior más grande, y jugar con la opción anterior

Un saludo

[aurix]

Gracias, Lepe.
Aunque la solucion que me propones no se me adapta, pq cada factura tiene diferente nº de lineas(como max 23 lin pag ) y de esta manera no se ajusta al nº de lineas de factura, sino que aparece justo despues de la ultima linea de detalle y justamente eso lo quiero controlar que aparezca al final de cada pag si la factuira tiene menos de 23 lineas o que aparezca en la siguiente hoja si tiene mas de 23.

De todas maneras, muchas gracias.


PD: Si alguien tiene alguna sugerencia sera bien recibida.

Y de nuevo, gracias.

[[Lepe]]

Vamos, algo como esto:

Código Delphi [-]
type
  Tver = (vTotales, vSumaYSigue);

procedure TFrmQRFactura.PageFooterBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  if detalle.RecordCount = 0 then
    Ver(vTotales)
  else
  if (qrfact.PageNumber * 23 div detalle.RecordCount) > 0 then
    Ver(vTotales)
  else
    Ver(vSumaYSigue);

end;

procedure tfrmqrfactura.Ver(queVer: TVer);
begin
  lblSumaYSigue.Enabled := (queVer = vSumaYSigue);
  dbtSumaYSigue.Enabled := (queVer = vSumaYSigue);
  lblSUMA.Enabled       := (queVer = vtotales);
  DBTBimponible.Enabled := (queVer = vtotales);
  lblIVA.Enabled        := (queVer = vtotales);
  DBTiva.Enabled        := (queVer = vtotales);
  dbtIvaPercent.Enabled := (queVer = vtotales);
  lbltotal.Enabled      := (queVer = vtotales);
  DBTimporte.Enabled    := (queVer = vtotales);

end;

lbl = labels con el texto 'suma y sigue' o solo 'suma'
DB = qrdbtext.

Un saludo