Imprimir páginas pares o impares mediante el QReport?

[Combat-F2D]

vamos a ver si este codigo que te envío te puede solucionar algo:

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.