vamos a ver si este codigo que te envío te puede solucionar algo:
Código:
procedure TfClientes.BotonImprimir(Sender: TObject);
var nPaginas:Integer;
i:Integer;
begin
qrListadoGeneralClientes.Prepare;
nPaginas := qrListadoGeneralClientes.PageNumber;
for i:=1 to nPaginas do
begin
If i Mod 2 = 1 then Continue;
// esta sentencia es para que solo imprima las paginas pares
// si quisieses solo las impares sería: If i Mod 2 = 0 then Continue;
with fListadoGeneralClientes.qrListadoGeneralClientes do
begin
PrinterSettings.FirstPage:=i;
PrinterSettings.LastPage :=i;
Print;
end;
end;
end;
se que no es mu güapa, pero creo que trabaja.