ERRO AO IMPRIMIR!!!

EMANUEL 25/05/2004 10:51:58
#26545
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 alguma DLL faltando? mas... qual seria?
obrigado?
USUARIO.EXCLUIDOS 27/05/2004 13:55:08
#26964 Resposta escolhida
O relatório não está encontrado o banco de dados (arquivo físico). Na máquina que está o banco parece abrir normal e na máquina cliente, parece não abrir.

Se o problema for na máq. cliente, vc deve criar a estrutura das tabelas para buscar o banco de dados no servidor.


Espero que eu tenha entendido sua dúvida
Tópico encerrado , respostas não são mais permitidas
Voltar