Buscar

Delphi e rave: como salvar relatórios em pdf, htm e txt.

Código

{Em Form de preview q vc criar ponha os componentes:
  -SaveDialog
  -RvRenderPDF
  -RvRenderHTML
  -RvRenderText
  -RvNDRWriter

Declare a procedure:}


procedure SalvarComo (const index: SmallInt);

//Implemente da seguinte forma:

   procedure TFrmPreview.SalvarComo(const index: SmallInt);
   begin
      SaveDialog.FilterIndex := index;
      if (SaveDialog.Execute) and (SaveDialog.FileName <> '') then
        //Tipo de formato para ser salvo!!!
      case SaveDialog.FilterIndex of
         1: RvRenderPDF.PrintRender(RvNDR.Stream, SaveDialog.FileName);
         2: RvRenderRTF.PrintRender(RvNDR.Stream, SaveDialog.FileName);
         3: RvRenderHTML.PrintRender(RvNDR.Stream, SaveDialog.FileName);
         4: RvRenderText.PrintRender(RvNDR.Stream, SaveDialog.FileName);
    end;
end;

//Agora coloque um Button no Form e para o evento OnClick digite:
 
SalvarComo(1);
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Arquivos
Adicionada dia: 04/01/07
Por: Alain John Saraiva Rodrigues
Visualizada: 13457 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009