Hola buenas
Creo que lo más sencillo y elegante sería poner una banda de pié de página de 6 cm con lo cual en principio te solucionaría el problema.
Si eso no te funciona entonces quizás podrias cambiar el cálculo que haces de lineas impresas por la suma de los anchos impresos. Algo más o menos como esto:
procedure TFlisfactura.QRSubDetail1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
total := total + Qrsubdetail1.height;
if total >= tope then
begin
QRSubDetail1.ForceNewPage:=True;
end;
end;
En fin , es una idea
Hogol
|