IMPRIMIR COM CRYSTAL REPORTS VS 2010 VB
Galera, sou novo no ramo e ainda não tinha desenvolvido nada que precisasse IMPRIMIR...Tenho buscado na net alguns tutoriais e encontrei alguns que me ajudaram a imprimir com PrintPreviewDialog e PrintDocument ....porém meu problema é que preciso imprimir e organizar todas essas informações que estão na FOTO apenas em uma página.
Sei que com Crystal Reports ficaria mais fácil, encontrei vários códigos tentei adaptar em meu sistema, mas fica faltando alguma coisa....preciso de um caminho, pois não sei qual procedimento tomar...
EX:
1- O que colocar no Botão Imprimir?
Private Sub btn_imprimir_Click(sender As System.Object, e As System.EventArgs) Handles btn_imprimir.Click
End Sub
2- Como passar os dados dos campos do [Ô]frm_cad_membros[Ô] para o Crystal Reports?
3- O que mais preciso fazer para conseguir Imprimir?
Desculpa tanta questão, mas realmente não vi essas coisas na Facul e não to sabendo como fazer.
Sei que com Crystal Reports ficaria mais fácil, encontrei vários códigos tentei adaptar em meu sistema, mas fica faltando alguma coisa....preciso de um caminho, pois não sei qual procedimento tomar...
EX:
1- O que colocar no Botão Imprimir?
Private Sub btn_imprimir_Click(sender As System.Object, e As System.EventArgs) Handles btn_imprimir.Click
End Sub
2- Como passar os dados dos campos do [Ô]frm_cad_membros[Ô] para o Crystal Reports?
3- O que mais preciso fazer para conseguir Imprimir?
Desculpa tanta questão, mas realmente não vi essas coisas na Facul e não to sabendo como fazer.
Bom, eu uso o vb 2008 e faço da seguinte maneira:
1 - crie essa função :
Public Function DataTeste() As DataSet
Try
Dim objDataSet As New DataSet
Dim instrucaoSQL As String = [Ô] Select * from sua tabela[Ô]
Dim objComando As New SqlCommand
objComando.CommandType = CommandType.Text
objComando.CommandText = instrucaoSQL
Dim dscat As New SqlDataAdapter(instrucaoSQL, conexao.GetConexao1)
dscat.Fill(objDataSet)
objComando = Nothing
Return objDataSet
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
2 - Crie um DataSet com os campos iguais ao que sua consulta Sql irá retornar
3 - Chame o Relatorio
Public Sub ChamaRelatorio()
[ô] Gera o Relatório
Dim cr As New crDataTeste // Seu Relatorio em crystal
cr.SetDataSource(NomeDaSuaFuncao.Tables(0))
frmVisualiza.CrystalReportViewer1.ReportSource = cr
frmVisualiza.Show()
End Sub
1 - crie essa função :
Public Function DataTeste() As DataSet
Try
Dim objDataSet As New DataSet
Dim instrucaoSQL As String = [Ô] Select * from sua tabela[Ô]
Dim objComando As New SqlCommand
objComando.CommandType = CommandType.Text
objComando.CommandText = instrucaoSQL
Dim dscat As New SqlDataAdapter(instrucaoSQL, conexao.GetConexao1)
dscat.Fill(objDataSet)
objComando = Nothing
Return objDataSet
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
2 - Crie um DataSet com os campos iguais ao que sua consulta Sql irá retornar
3 - Chame o Relatorio
Public Sub ChamaRelatorio()
[ô] Gera o Relatório
Dim cr As New crDataTeste // Seu Relatorio em crystal
cr.SetDataSource(NomeDaSuaFuncao.Tables(0))
frmVisualiza.CrystalReportViewer1.ReportSource = cr
frmVisualiza.Show()
End Sub
Oi Thaine,
Muito Obrigado pela dica, vou começar a incrementar em meu sistema, mas tenho uma dúvida....
Nessa Botão Imprimir....eu quero apenas Imprimir os Dados dos Campos, ou seja, das TEXTBOX, MASKED e COMBO...não quero abrir o Banco (Isso vai me ajudar quando eu for imprimir o Banco inteiro)....quero apenas passar os valores que eu já carreguei para impressão.... Tem como me ajudar nisso?
Muito Obrigado pela dica, vou começar a incrementar em meu sistema, mas tenho uma dúvida....
Nessa Botão Imprimir....eu quero apenas Imprimir os Dados dos Campos, ou seja, das TEXTBOX, MASKED e COMBO...não quero abrir o Banco (Isso vai me ajudar quando eu for imprimir o Banco inteiro)....quero apenas passar os valores que eu já carreguei para impressão.... Tem como me ajudar nisso?
Dá uma olhada nesse tópico
http://vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=369775&varWorld=]
Espero que ajude !
http://vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=369775&varWorld=]
Espero que ajude !
Obrigado Thaine
Creio que agora consigo....muito Obrigado..
Vou encerrar o Forum agora e te pontuar...
Creio que agora consigo....muito Obrigado..
Vou encerrar o Forum agora e te pontuar...
Tópico encerrado , respostas não são mais permitidas