|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Crystal Reports)
|
|
 |
Título da Dica: função simplificada para chamar relatorio no crystal reports
|
 |
|
|
|
Postada em 1/9/2003 por Ð@®l@n
para chamar num formulario qualquer
ex:
call chamarel("teste.rpt","{tabela.campo}=2")
num módulo .bas
Sub ChamaRel(Relatorio As String, Formula As String, optional Titulo As String)
On Error GoTo Trata
'crp1=é o objeto do crystal
'sugestão-> coloque um unico objeto crystalreports1 no formulario MDI
With MDIform1.crp1
.WindowLeft = 0
.WindowTop = 0
.PrintFileName = App.Path & "\Dados.Mdb"
.SelectionFormula = Formula
.ReportFileName = (App.Path & "\" & Relatorio & ".Rpt")
.ReportTitle = Titulo
.WindowTitle = Titulo
.RetrieveDataFiles
.Action = 0
.SelectionFormula = ""
For i = 0 To 6: .formulas(i) = "": Next
End With
Exit Sub
Trata:
For i = 0 To 6: MDIform1.crp1.formulas(i) = "": Next
Select Case Err.Number
Case 20526
MsgBox "Não há impressora instalada!" & Chr(13) & "É necessário a instalação de um impressora!", 16, "Atenção!!"
Case 20504, 20507
MsgBox "Relatório " & Relatorio & ".rpt não encontrado!" & Chr(13) & "Verifique o caminho: " & app.path, 16, "Atenção!!"
Case Else
MsgBox Err.Number & " " & Err.Description
End Select
End Sub
|
|
|
|
|
