Relatórios com VCL Crystal [CRPE]

Código para cria instancia do CRPE e imprimir um relatório em crystal.

Primeiro passo é declarar na uses as bibliotecas: UCrpeClasses e UCrpe32,



   Crpe := TCrpe.Create(Self);
   Crpe.Clear;
   Crpe.Printjobs(1);
   Crpe.ReportName:= ExtractFileDir(Application.ExeName) + '\Relatorio1.rpt'; //Caminho do relatorio
   Crpe.Connect.ServerName := 'IP do servidor';
   Crpe.Connect.DatabaseName := 'Nome do seu Banco de Dados';
   Crpe.Connect.Password := 'Senha do servidor';
   Crpe.Connect.Propagate := False;
   Crpe.Connect.UserID := 'usuario(normalmente SA)';
   Crpe.WindowState := wsMaximized;

   //Crie um filtro para relatório por meio do código a seguir
   Crpe.SQL.Query.Clear;
   Crpe.SQL.Query.text := 'SELECT ArAtividades.COD_ATV, ArAtividades.DESC_ATV, ArAtividades.LOCAL_ATV, '
                          +'ArAtividades.TIPO_ATV, '
                          +'FROM '
                          +'ArAtividades ArAtividades '
                          +'where COD_ATV = ''1''';

   Crpe.execute; //Abre relatorio