Linhas De Comando P/ Chamar Crystal Report?

[x_cleyson]

alguém conhece a linhas de comandos para chamar um relatorio do Crystal Report.?????

Obrigado.

[Danilo Faciroli]

Segue o codigo que você vai precisar

Private Sub Command1_Click(Index As Integer)

Private Sub mnuGeral_Click()

On Error GoTo Imp_Error

'cr1.DataFiles(0) = App.Path & "\sistmarcelo.mdb"

cr1.DataFiles(0) = App.Path & "\sistmarcelo.mdb"

cr1.ReportFileName = App.Path & "\salario_obs.rpt"

cr1.Destination = crptToWindow

cr1.Action = 1

Imp_Error:

If Err Then

MsgBox Err.Description, vbCritical, "Atenção"

Exit Sub

End If