Como incremento un numero en la impresion?

[Loviedo]

Si lo que haces es repetir el procedimiento de impresión tantas veces como impresos necesarios, entonces puedes utilizar esto para reemplazar un text en Rave:

Código Delphi [-]
var
  Pagina: integer = 0;
 
implementation
 
uses RVClass, RVProj, RVCsStd;
 
{$R *.dfm}
 
procedure TFDM.Imprimedocumento1;
var
  MyPage: TRavePage;
  MyText1: TRaveText;
  NDRStream:  TMemoryStream;
begin
  inc(Pagina);
  NDRStream := TMemoryStream.Create;
  try
    RvProject1.Engine := RvRenderWriter1;
    RvProject1.open;
    With RvProject1.ProjMan do
      begin
        MyPage := FindRaveComponent('Ficha1.Page1',nil) as TRavePage;
        MyText1 := FindRaveComponent('Text1',MyPage) as TRaveText;
        MyText1.Text := 'Página '+inttostr(Pagina);
      end;
    RvProject1.SelectReport('Ficha1',true);
    RvProject1.SaveToStream(NDRStream);
    RvRenderWriter1.Stream:=NDRStream;
    RvProject1.Execute;
    RvRenderPrinter1.Render(NDRStream);
    RvProject1.close;
  finally
    NDRStream.Free;
  end;
end;