Puedes ponerte al principio de la tabla (ADOQuery1.First), y ejecutar un delete (ADQuery1.Delete) tantas veces como registros has impreso:
form2.QuickRep1.PrinterSettings.LastPage * numero_etiq
dentro de un bucle for.
Al final te deberían quedar sin borrar los registros que no has impreso:
AdoQuery1.RecordCount MOD numero_etiq
|