IMPRIMIR RELATORIO
Pessoal,
Estou aprendendo o Crystal Reports 9.2, fiz um relatorio q gostaria de chama-lo atraves do vb. no registro que o form estiver posicionado através do condigo do cliente por ex.
CodCli = 103
abri o relatório e mostrar somente os dados do CodCli 103
deve ser simples, mas não tenho ideia de como fazer isso.
Nome da Tabela usada no relatorio = tbl_Cliente
Estou aprendendo o Crystal Reports 9.2, fiz um relatorio q gostaria de chama-lo atraves do vb. no registro que o form estiver posicionado através do condigo do cliente por ex.
CodCli = 103
abri o relatório e mostrar somente os dados do CodCli 103
deve ser simples, mas não tenho ideia de como fazer isso.
Nome da Tabela usada no relatorio = tbl_Cliente
[ô]Dados = sua conexão
[ô]rstbl_Cliente = Sql
Print = Seu Relatório
Dim Resp As Byte
Dados.rstbl_Cliente.Filter = [Ô]CodCli = [ô][Ô] & tCodCli.Text & [Ô][ô][Ô]
If Len(txtCodCli.Text) <= 0 Then
MsgBox [Ô]Selecione um Item para Impressão! [Ô], vbExclamation, [Ô] Informações [Ô]
Else
Dim a
a = MsgBox([Ô]Confirma a Impressão de : [Ô] & txtNome.Text & [Ô] ![Ô], vbYesNo + vbQuestion, [Ô] Impressão [Ô])
If a = vbYes Then
Print vbModal
End If
End If
Unload Print
Espero ter Ajudado
Nilton
[ô]rstbl_Cliente = Sql
Print = Seu Relatório
Dim Resp As Byte
Dados.rstbl_Cliente.Filter = [Ô]CodCli = [ô][Ô] & tCodCli.Text & [Ô][ô][Ô]
If Len(txtCodCli.Text) <= 0 Then
MsgBox [Ô]Selecione um Item para Impressão! [Ô], vbExclamation, [Ô] Informações [Ô]
Else
Dim a
a = MsgBox([Ô]Confirma a Impressão de : [Ô] & txtNome.Text & [Ô] ![Ô], vbYesNo + vbQuestion, [Ô] Impressão [Ô])
If a = vbYes Then
Print vbModal
End If
End If
Unload Print
Espero ter Ajudado
Nilton
Tenta usar o data reporte com ou sem Data enviriorment...
Tópico encerrado , respostas não são mais permitidas