Pessoal,

utilizo o crystal  e na minha rotina de impressão esta o seguinte:

Dim CrxApp     As New CRAXDRT.Application
Dim Relatorio  As New CRAXDRT.Report      'Relatorio do Cristal Report
Dim X As Integer
Dim L As Integer

If Opt(0).Value = True Then

    Set Relatorio = CrxApp.OpenReport(App.Path & "TE_RelMovCaixaDia.rpt")
    If CmbContaDespesa.Text <> "" Then
        For X = 1 To Relatorio.FormulaFields.Count
             If Relatorio.FormulaFields(X).Name = "{@FContaDespesa}" Then   Relatorio.FormulaFields(X).Text = "'" & CmbContaDespesa.Text & "'"
             If Relatorio.FormulaFields(X).Name = "{@FDatIni}" Then Relatorio.FormulaFields(X).Text = "Date(" & Format(DTPeriodo(0).Value, "YYYY,MM,DD") & ")"
             If Relatorio.FormulaFields(X).Name = "{@FDatFim}" Then Relatorio.FormulaFields(X).Text = "Date(" & Format(DTPeriodo(1).Value, "YYYY,MM,DD") & ")"
        Next X
    Else
        For X = 1 To Relatorio.FormulaFields.Count
             If Relatorio.FormulaFields(X).Name = "{@FDatIni}" Then Relatorio.FormulaFields(X).Text = "Date(" & Format(DTPeriodo(0).Value, "YYYY,MM,DD") & ")"
             If Relatorio.FormulaFields(X).Name = "{@FDatFim}" Then Relatorio.FormulaFields(X).Text = "Date(" & Format(DTPeriodo(1).Value, "YYYY,MM,DD") & ")"
        Next X
    End If
    FrmRelatorio.CRViewer1.ReportSource = Relatorio
    FrmRelatorio.Show vbModal

end if

-------

Esta funcionando beleza em uma maquina, em outra da a seguinte mensagem quando executo:

 

PHYSICAL DATABASE NOT FOUND

 

ja verifiquei e todos os arquivos encontram-se  na pasta que esta instalado.

 

seria alfuma DLL faltando? mas... qual seria?

obrigado?

 

vc instalou o banco de dados na maquina pois esta mensagem e clara o banco nao foi encontrado caso tenha instalado ou esteja buscando numa rede verifique se o caminho q vc esta informando esta correto.

 

ha tambem de uma olhada no app.path veja se nao esta ocorrendo uma inconsistencia ele pode ja esta retornando uma barra e vc estar inserindo outra....