none
Print Preview RRS feed

  • Pergunta

  • 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

     


    Wesley Sozua
    terça-feira, 24 de janeiro de 2012 12:08