ERRO NO CRYSTAL.

USUARIO.EXCLUIDOS 04/10/2004 20:18:25
#44545
Estou usando o seguinte código para imprimir e fazer algumas filtragens em meu(s) relatório(s):

Private Sub CbImprimir_Click()
If OptData.Value = True And OptVideo.Value = True Then
Cr1.ReportFileName = App.Path & "\vendas.rpt"
Cr1.SelectionFormula = "{vendas.datacadastro} >= date(" & Format(TxtDataInicial.Text, "yyyy,mm,dd") & ") and {vendas.datacadastro} <= date(" & Format(TxtDataFinal.Text, "YYYY,MM,DD") & ")"
Cr1.RetrieveDataFiles
Cr1.Destination = crptToWindow
Cr1.Action = 1
End If
If OptData.Value = True And OptImpressora.Value = True Then
Cr1.ReportFileName = App.Path & "\vendas.rpt "
Cr1.SelectionFormula = "{vendas.datacadastro} >= date(" & Format(TxtDataInicial.Text, "yyyy,mm,dd") & ") and {vendas.datacadastro} <= date(" & Format(TxtDataFinal.Text, "YYYY,MM,DD") & ")"
Cr1.RetrieveDataFiles
Cr1.Destination = crptToPrinter
Cr1.Action = 1
End If
End Sub

Porem esta dando o seguinte erro: Unable to open.database - '20533'

Observei que este erro ocorre, porque meu sistema não esta setado para sua pasta de origem. "A pasta de oritem é F:\Vendas"

Se eu mudar o sistema para a pasta de origem, funciona normal.

Como faço para imprimir meus relatórios independende da pasta que esteja instalado o sistema.
USUARIO.EXCLUIDOS 04/10/2004 21:26:13
#44547 Resposta escolhida
Eu tive alguns problemas com isso pois em tempo de projeto o rpt estava em um local e depois de instalado o diretorio muda ....


Por isso em alguns casos o melhor é colocar os rpt no mesmo diretorio do banco dados ..... e no SET LOCATION deixa a opçao "Same as Report"



Mas mesmo assim eu uso o codigo ....



CrystalReport1.ReportFileName = app.path & "elatorio.rpt"
CrystalReport1.DataFiles(0) = app.path & "\bancodados.mdb"

sSQL = "{tabela.campo}='" & minhavariavel & "'"

CrystalReport1.ReplaceSelectionFormula sSQL
Tópico encerrado , respostas não são mais permitidas
Voltar