Ver Mensaje Individual
  #2  
Antiguo 04-05-2005
Loviedo Loviedo is offline
Miembro
 
Registrado: dic 2004
Posts: 214
Reputación: 0
Loviedo cantidad desconocida en este momento
A lo mejor te sirve algo parecido a esto:
Código Delphi [-]
procedure TForm1.Imprimedocumento1;
var
  NDRStream:  TMemoryStream;
begin
  NDRStream := TMemoryStream.Create;
  try
    RvProject1.Engine := RvNDRWriter1;
    RvProject1.open;
    while not Table1.eof do
      begin
        RvProject1.SelectReport('Detalle',true);
        RvProject1.SaveToStream(NDRStream);
        RvNDRWriter1.Stream:=NDRStream;
        RvProject1.Execute;
        RvRenderPrinter1.Render(NDRStream);
        RvProject1.SelectReport('Carta',true);
        RvProject1.SaveToStream(NDRStream);
        RvNDRWriter1.Stream:=NDRStream;
        RvProject1.Execute;
        RvRenderPrinter1.Render(NDRStream);
        Table1.next;
        Application.ProcessMessages;
      end;
    RvProject1.close;
  finally
    NDRStream.Free;
  end;
end;
Saludos.
Responder Con Cita