Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 07-01-2005
Loviedo Loviedo is offline
Miembro
 
Registrado: dic 2004
Posts: 214
Poder: 0
Loviedo cantidad desconocida en este momento
Wink

Esto a mi me funciona. Espero te ayude.
Código Delphi [-]
 uses RVClass, RVProj, RVCsStd;
 procedure TDM.Imprimedocumento1;
 var
   NDRStream:  TMemoryStream;
   MyPage: TRavePage;
   MyText1,MyText2: TRaveText;
 begin
   NDRStream := TMemoryStream.Create;
   try
     RvProject1.Engine := RvNDRWriter1;
     RvProject1.open;
     With RvProject1.ProjMan do
       begin
         MyPage := FindRaveComponent('Presupuesto1.Page1',nil) as TRavePage;
         MyText1 := FindRaveComponent('Text7',MyPage) as TRaveText;
         MyText1.Text := mFecha(TableAux1['fecha']);
       end;
     RvProject1.SelectReport('Presupuesto1',true);
     RvProject1.SaveToStream(NDRStream);
     RvNDRWriter1.Stream:=NDRStream;
     RvProject1.Execute;
     RvRenderPrinter1.Render(NDRStream);
     RvProject1.close;
   finally
     NDRStream.Free;
   end;
 end;
Saludos.

Última edición por marcoszorrilla fecha: 08-01-2005 a las 21:48:36. Razón: Poner etiquetas Delphi
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 00:37:18.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi