USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página