Buscar por:

Imprimir ou visualizar a impressao e exportar pra pdf usando rave

Código

{Coloque no form:

RvDataSetConnection1

RvProject1

RvSystem1

RvRenderPDF1

IBQuery1(da guia interbase)

DataSet

Depois de configurar tudo con o banco de dados basta colocar todo o codigo abaixo em um button:}

procedure TfrmRavePDF.Button1Click(Sender: TObject);

begin

  ///////////  EXPORTANDO PRA PDF  //////////////

  RvSystem1.DefaultDest:= rdFile;

  RvSystem1.DoNativeOutput := false;

  RvSystem1.RenderObject :=rvRenderPDF1;

  RvSystem1.OutputFileName:= 'C:Exemplo.pdf'; //caminho onde vai gerar o arquivo pdf

  RvSystem1.SystemSetups:= RvSystem1.SystemSetups -[ssAllowSetup];

  RvProject1.ProjectFile := 'C:TesteRelatorioQuickProjetoRelatorioPDF.rav';//Local que coloquei o rav como exemplo

  RvProject1.Engine:= RvSystem1;

  RvProject1.SelectReport('Teste1', True); // nome do page no rav criado

  RvProject1.ExecuteReport('RelatorioPDF'); // nome do *.rav

  RVProject1.Execute;

  //////// COLOCANDO EM PREVIEW OU SE QUISER IMPRIMIR DIRETO MUDAR DE RDPREVIEW PARA RDPRINT ////////

  RvSystem1.DefaultDest:= rdPreview;

  RvProject1.ProjectFile := 'C:TesteRelatorioQuickProjetoRelatorioPDF.rav';

  RvProject1.Engine:= RvSystem1;

  RvProject1.SelectReport('Teste1', True);

  RvProject1.ExecuteReport('RelatorioPDF');

  RVProject1.Execute;