Pessoal,
utilizo esta rotina para imprimir, sendo que após formtar meu HD e instalar tudo novamente, quando tento imprimir, esta ocorrendo o seguinte erro:

Private Sub CmdImpOrca_Click()
Dim CrxApp     As New CRAXDRT.Application
Dim Relatorio  As New CRAXDRT.Report       'Relatorio do Cristal Report
Dim X As Integer
Dim L As Integer

O erro ocorre nesta linha abaixo; Set Relatorio = CrxApp.OpenReport(App.Path & "ORC_ORCAMENTO.rpt")

erro:(Run Time Error 429) ActiveX Component Can´t Create Object
    
For X = 1 To Relatorio.FormulaFields.Count
    If Relatorio.FormulaFields(X).Name = "{@FNumCalc}" Then Relatorio.FormulaFields(X).Text = TxtOrca.Text: Exit For
Next X
FrmRelatorio.CRViewer1.ReportSource = Relatorio
FrmRelatorio.Show vbModal
End Sub

Desde ja agradeço pela ajuda.
Emanuel

verifiquei se a referencia esta habilitada - CRYSTAL REPORTS 9 ACTIVEX DESIGNER RUN TIME LIBRARY.......se não, habilite.

 

a versão tem que ser de acordo com a versão do crystal que esta utilizando, por isso especifiquei 9

Olá Emanuel!

 

Você deve reinstalar as runtimes do Crystal Reports pra que volte a funcionar, pois ao formatar sua máquina as entradas no registro foram apagadas e sua aplicação não pode reconhecer os componentes referenciados.

 

Abraço!

Olá pessoal,

obrigado pela ajuda. depois que reinstalei e registrei as dll´s resolveu meu problema

 

um abraço,

sds