|
|
|
|
|
|
|
|
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é + !!!
|
|
|
|
|
