Dicas Crystal Reports
Chamando o relatório do Crystal Reports
- Vá até o Menu Projetc/Component, e insira o componente Crystal
Reports
- Altere a propriedade ReportFileName, e indique o caminho e o arquivo de relatório.
- Crie um botão ou um item no Menu, e usee as instruções
a seguir:
Exemplo 1: rptRelatorio.Action =1 ou
Exemplo 2: rptRelatorio.PrintReport
Utilizando fórmulas dentro do Crystal Reports
- Entre no Crystal Reports, e no Menu Insert/Formula. Será aberta uma
caixa. Digite por exemplo: Criterio e depois no botão OK. Logo a seguir,
será aberta a caixa de Edição de Fórmula. Deverá
aparecer na caixa Fields: @Criterio, indicando que o processo foi bem sucedido.
Para confirmar, clique no botão Accept.
- Vá até o Menu Projetc/Component, e insira o componente Crystal
Reports
- Altere a propriedade ReportFileName, e indique o caminho e o arquivo de relatório.
Dentro do Visual Basic, crie um botão ou um item dentro do Menu, e digite
as instruções abaixo:
Dim Criterio As String
Criterio = "{Cadastro.Codigo}= " & txtCodigo.Text & ""
rptRelatorio.SelectionFormula = Criterio
rptRelatorio.PrintReport
Obs.: Esta fórmula é para campo numérico. Para campo alfanumérico,
utilize a fórmula abaixo:
Dim Criterio As String
Criterio = "{Cadastro.Nome} = '" & cmbCadastro.Text & "'"
rptRelatorio.SelectionFormula = Criterio
rptRelatorio.ReportFileName = App.Path & "\Cadastro.rpt"
rptRelatorio.PrintReport
Imprimindo por Intervalo de Nomes
Dim Criterio As String
If Trim$(cboUsuIni.Text) > "" Then
Criterio = "{Dados.Nome} >= " & """" _
& cboUsuIni.Text & """" _
& " and {Dados.Nome} <= " _
& """" & cboUsuFim.Text & """"
rptDados.SelectionFormula = Criterio
Else
rptDados.SelectionFormula = ""
End If
rptDados.Formulas(0) = "Intervalo=" & """" _
& " (De: " & cboUsuIni.Text _
& " Até: " & cboUsuFim.Text & ")" &
""""
rptDados.ReportFileName = App.Path & "\dados.rpt"
rptDados.PrintReport
Imprimindo por Intervalo de Data
Dim Criterio As String
Dim Datini As Date
Dim Datfim As Date
If Not IsDate(mskDataIni.Text) Then
MsgBox "Data Inicial inválida!!!", vbInformation, "Data
Inicial"
mskDataIni.SetFocus
Exit Sub
End If
If Not IsDate(mskDataFim) Then
MsgBox "Data Inicial inválida!!!", vbInformation, "Data
Inicial"
mskDataFim.SetFocus
Exit Sub
End If
Datini = mskDataIni.Text
Datfim = mskDataFim.Text
If Datfim < Datini Then
MsgBox "A DATA FINAL não pode ser menor que a DATA INICIAL",
vbInformation, "Data"
mskDataIni.SetFocus
Exit Sub
End If
If Trim$(mskDataIni.Text) > "" Then
Criterio = "{Dados.DataCad} >= date(" _
& Right(mskDataIni.Text, 4) _
& "," & Mid(mskDataIni.Text, 4, 2) & "," _
& Left(mskDataIni.Text, 2) & ")"
If Trim$(mskDataFim.Text) > "" Then
Criterio = Criterio & " and {Dados.DataCad}" _
& " <= date(" & Right(mskDataFim.Text, 4) _
& "," & Mid(mskDataFim.Text, 4, 2) & "," _
& Left(mskDataFim.Text, 2) & ")"
End If
rptRelData.SelectionFormula = Criterio
Else
rptRelData.SelectionFormula = ""
End If
rptRelData.ReportFileName = App.Path & "\dados.rpt"
rptRelData.PrintReport
mskDataIni.Mask = ""
mskDataIni.Text = ""
mskDataFim.Mask = ""
mskDataFim.Text = ""
mskDataIni.SetFocus
Opções da propriedade ReportFileName:
- To Windows = Permite visualizar o relatório na tela e imprimi-lo;
- To Printer = Permite imprimir o relatórrio direto para impressora;
- To File = Permite salvar o relatório dentro de um arquivo.