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

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Imprimindo relatorio do Crystal filtrado + relatorio geral
Postada em 4/5/2006 por >>|Bedin|<<            
AE Galera!!

Se vc deseja imprimir no seu projeto tanto um ralatorio geral como um filtrado, copie e cole esse codigo:

Componentes:

CheckBox, TextBox, CommandButton, CrystalReport
--------------------------------------------------------------------------------------------------

Private Sub Check1_Click()
  If Check1 = 1 Then
     Text1.Enabled = True
  Else
     Text1.Enabled = False
  End If
End Sub

Private Sub Command1_Click()
If MsgBox("Deseja Imprimir Relatório ?", vbQuestion + vbYesNo, "Teste") = vbYes Then
    CrystalReport1.Connect = "pwd=sua senha" 'somente se seu bd tiver senha!!!'
    CrystalReport1.ReportFileName = "seu relatorio.rpt"
   If Form1.Text1.Enabled = False Then
      CrystalReport1.SelectionFormula = ""
      CrystalReport1.WindowState = crptMaximized
      CrystalReport1.Action = 1
   Else
     If Form1.Text1.Enabled = True Then
        CrystalReport1.SelectionFormula = "{tbl.text1}='" + Text1 + "'"
        CrystalReport1.WindowState = crptMaximized
        CrystalReport1.Action = 1
     End If
   End If
End If
End Sub

Valeu, té + !!!
 


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