Olá tudo bom?
Estou tendo dificuldades em programar no botao imprimir ,
uma forma onde toda vez que a clicar no checked box1 retornar o relátorio1,
por enquanto só exibe uma vez , quando fecho o relátorio e tento abri lo de novo nada acontece!
Private Sub Imprim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Imprim.Click
If Adv_reu.Checked = True And Advogado_cad.Checked = False And Processo_com.Checked = False And Partes_ord.Checked = False And Parte_cad.Checked = False And Rel_Mandado.Checked = False And Imovel.Checked = False And Aluguel.Checked
= False And dposito.Checked = False Then
ProcessoAutorParte.ShowDialog()
End If
If Advogado_cad.Checked = True And Adv_reu.Checked = False And Processo_com.Checked = False And Partes_ord.Checked = False And Parte_cad.Checked = False And Rel_Mandado.Checked = False And Imovel.Checked = False And Aluguel.Checked
= False And dposito.Checked = False Then
CadastroAdvogado.ShowDialog()
End If
If Processo_com.Checked = True And Advogado_cad.Checked = False And Adv_reu.Checked = False And Partes_ord.Checked = False And Parte_cad.Checked = False And Rel_Mandado.Checked = False And Imovel.Checked = False And Aluguel.Checked
= False And dposito.Checked = False Then
ProcessoCompleto.ShowDialog()
End If
If Partes_ord.Checked = True And Advogado_cad.Checked = False And Adv_reu.Checked = False And Processo_com.Checked = False And Parte_cad.Checked = False And Rel_Mandado.Checked = False And Imovel.Checked = False And Aluguel.Checked
= False And dposito.Checked = False Then
ParteOrdemAlfábetica.ShowDialog()
End If
If Parte_cad.Checked = True And Advogado_cad.Checked = False And Adv_reu.Checked = False And Processo_com.Checked = False And Partes_ord.Checked = False And Rel_Mandado.Checked = False And Imovel.Checked = False And Aluguel.Checked
= False And dposito.Checked = False Then
CadastrosParte.ShowDialog()
End If
If Rel_Mandado.Checked = True And Advogado_cad.Checked = False And Adv_reu.Checked = False And Processo_com.Checked = False And Parte_cad.Checked = False And Partes_ord.Checked = False And Imovel.Checked = False And Aluguel.Checked
= False And dposito.Checked = False Then
Mandado_Certo.ShowDialog()
End If
If Imovel.Checked = True And Advogado_cad.Checked = False And Adv_reu.Checked = False And Processo_com.Checked = False And Parte_cad.Checked = False And Rel_Mandado.Checked = False And Partes_ord.Checked = False And Aluguel.Checked
= False And dposito.Checked = False Then
Imovel7.ShowDialog()
End If
If Aluguel.Checked = True And Advogado_cad.Checked = False And Adv_reu.Checked = False And Processo_com.Checked = False And Parte_cad.Checked = False And Rel_Mandado.Checked = False And Partes_ord.Checked = False And Imovel.Checked
= False And dposito.Checked = False Then
CadastroAluguel.ShowDialog()
End If
If dposito.Checked = True And Advogado_cad.Checked = False And Adv_reu.Checked = False And Processo_com.Checked = False And Parte_cad.Checked = False And Rel_Mandado.Checked = False And Partes_ord.Checked = False And Aluguel.Checked
= False And Imovel.Checked = False Then
Deposito.ShowDialog()
End If
End Sub