Jump to content
Fórum Script Brasil
  • 0

Usando o Crystal Reports ActiveX Design Run Time Library


kuroi

Question

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]

Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

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.

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148906
    • Total Posts
      644997
×
×
  • Create New...