Usando o Crystal Reports ActiveX Design Run Time Library

[kuroi]

Resolvi fazer esse tópico pra deixar pendurado aqui com os passos básicos pra utilização da biblioteca Crystal Reports ActiveX Design Run Time Library pra quem usa Visual Basic, apesar de acredito q a ocx tb possa ser usada tb em outras linguagens como Delphi, com mais o menos tb o mesmo código abaixo, mas claro q adaptado pra sintaxe correta.

O que acontece é que antigamente havia o componente Crystal Reports Control que era usado pra fazer a interação da linguagem de programação com os relatórios .rpt. Mas, não sei ao certo em que versao, acredito q na versao 8 mais ou menos, a biblioteca Crystal Reports ActiveX Design Run Time Library passou a ser distribuida junto com o Crystal Reports e sei q na versao 11 o Crystal Reports Control nem vinha mais.

Acontece que o Crystal Reports ActiveX Design Run Time Library (q vou chamar de CRAXDRT pra facilitar) é muito melhor e com mais opcoes, e mais atualizado. Por exemplo, um problema que surgiu aqui no forum é q o usuario não conseguia exportar o relatorio no formato HTML 4.0 no CRControl, já essa opção apareceu apenas numa versão mais recente do Crystal Reports quando o CRControl já estava ultrapassado.

E hoje em dia a maioria das pessoas (pelo menos pelo q se pode ver aqui no forum) continua utilizando o CRControl, talvez porque ele já esteja bastante difundido entre os programadores em geral.

Mas aqui vou dar uma pequena introdução de como usar o CRAXDRT:

Primeiro, adicione a referência (em menu Project -> References). Caso o Crystal Reports esteja instalado no seu computador, procure pela opcao Crystal Reports ActiveX Design Run Time Library X.Y (onde X.Y é o numero da versao de acordo o Crystal q esteja instalado).

Pra usar é muito facil. Primeiro declare um objeto Application e um Report e inicialize o Application:

Dim crAppl As CRAXDRT.Application, crRep As CRAXDRT.Report
Set crAppl = New CRAXDRT.Application[/code]

Aí, pra abrir o relatório faça:
[code]Set crRep = crAppl.OpenReport("C:\Caminho\Relatorio.rpt")

E pronto, ai você pode facilmente trabalhar com o seu relatorio. Aqui vou passar exemplos pras acoes mais comuns, mas com o CRAXDRT você pode ate mesmo montar um relatorio do zero. Editar o Selection Formula:

crRep.RecordSelectionFormula = " - ponha aqui a formula - "

Imprimir (na impressora):

crRep.PrintOut False, 1

Passe True no primeiro parametro para solicitar confirmacao do usuario. O segundo é o numero de cópias. Exportar para o HD:

With crRep
        .ExportOptions.DestinationType = crEDTDiskFile
        .ExportOptions.FormatType = crEFTWordForWindows 'Exportando pra Word
        .ExportOptions.DiskFileName = "ArquivoDoWord.doc"
        .Export False
End With[/code]


Adicionar valor em campo parametro:
[code]crRep.ParameterFields(1).AddCurrentValue "Valor"

Note que o índice comça no 1. O índice segue a ordem dos campos como você pode ver no Field Explorer com o .rpt aberto no Crystal Reports. Exibindo o relatório na tela: Primeiro adicione o componente (menu Project -> Componentes) Crystal Report Viewer e insira o CRViewer no formulário.

CRViewer1.ReportSource = crRep
CRViewer1.ViewReport[/code]

[Anderson Fernandes]

Instalei o Crystal Reports deste link http://www.sap.com/solutions/sap-crystal-s...ports/index.epx

mas não estou encontrando em referencias o "Crystal Reports ActiveX Design Run Time Library".

Tem que instalar algum "Crystal Reports Runtime" ou Service Pack para aparecer?

Desde já agradeço a atenção.