El TQuery debe estar enlazado con Rave, la consulta es independiente
Espero que esto te pueda ayudar:
Código Delphi
[-]
procedure TForm1.Button1Click((Sender: TObject);
var
i: integer;
begin
Query1.SQL.Clear;
Query1.SQL.Add('SELECT * FROM mTabla WHERE cliente = :IdCliente');
Query1.prepare;
try
for i := 1 to 100 do
begin
Query1.ParamByName('IdClienter').asinteger := i;
Query1.Open;
Imprimedocumento;
Query1.close;
inc(i);
end;
finally
Query1.UnPrepare;
end;
end;
procedure Imprimedocumento;
var
NDRStream: TMemoryStream;
begin
NDRStream := TMemoryStream.Create;
try
RvProject1.Engine := RvNDRWriter1;
RvProject1.open;
RvProject1.SelectReport('Albaran',true);
RvProject1.SaveToStream(NDRStream);
RvNDRWriter1.Stream:=NDRStream;
RvProject1.Execute;
RvRenderPrinter1.Render(NDRStream);
RvProject1.close;
finally
NDRStream.Free;
end;
end;
Saludos.