none
Como Imprimir sin Vista previa por medio de un boton en Visual Basic 2008? RRS feed

  • Pregunta

  • Buenas tardes amigos, tengo una  pregunta haber si me pueden ayudar, tengo un sistema el cual tiene un Form que agrega datos a una tabla de pedidos, por medio de INSERT, la tabla Pedidos que esta en SQL server 2008 R2 necesito que se imprima todo lo que tiene esa tabla en mi impresora local por medio de un boton que al darle click imprima de una ves el contenido de la tabla pedidos y que no me lo muestre en una vista previa,  aquí les dejo lo que tengo programado en el botón insertar que manda los datos a la tabla pedidos pero ese mismo boton necesito que tambien imprima osea dos funciones la que guarda la info a la tabla y el que imprime la info de esa misma tabla como puedo hacerlo? muchas gracias por la atención:

    Private Sub ButtonGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonGuardar.Click

            If Not ValidaDatos() Then Return

            Try
                Insert.Init("Pedidos")
                Insert.Add("Unidades_Menu", cboUnidadesPlatillos.SelectedIndex, "N")
                Insert.Add("Precio", Trim(Precio.Text), "S")
                Insert.Add("Descripcion_Menu", Trim(txtDescripcion1.Text), "S")
                Insert.Add("Orden", Trim(Label7.Text), "S")
                Insert.Add("Habitacion", Trim(habitacion.Text), "S")
                Insert.Add("Fecha_de_Pedido", Trim(DateTimePicker1.Text), "D")
                Insert.Add("Hora_de_Pedido", Trim(DateTimePicker2.Text), "DH")
                Insert.Add("PanesID", cboCodigo.Items(cbounidadespan.SelectedIndex), "N")


                If RadioBCafe.Checked Then
                    Insert.Add("Tipo_Bebidas", 0, "N")
                Else
                    Insert.Add("Tipo_Bebidas", 1, "N")
                End If


                If CheckGuarni1.Checked Then
                    Insert.Add("Guarniciones", 0, "N")
                Else
                    Insert.Add("Guarniciones", 1, "N")

                End If


                Insert.Add("activo", "0", "N")
                Xcute(Insert.SQL)


                MsgBox("Gracias por su selecciòn, Su pedido estara listo en unos minutos")

                Me.Close()
            Catch ex As Exception
                MsgBox(ex.Message)


            End Try
        End Sub


    Private Sub ButtonGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonGuardar.Click

            If Not ValidaDatos() Then Return

            Try
                Insert.Init("Pedidos")
                Insert.Add("Unidades_Menu", cboUnidadesPlatillos.SelectedIndex, "N")
                Insert.Add("Precio", Trim(Precio.Text), "S")
                Insert.Add("Descripcion_Menu", Trim(txtDescripcion1.Text), "S")
                Insert.Add("Orden", Trim(Label7.Text), "S")
                Insert.Add("Habitacion", Trim(habitacion.Text), "S")
                Insert.Add("Fecha_de_Pedido", Trim(DateTimePicker1.Text), "D")
                Insert.Add("Hora_de_Pedido", Trim(DateTimePicker2.Text), "DH")
                Insert.Add("PanesID", cboCodigo.Items(cbounidadespan.SelectedIndex), "N")


                If RadioBCafe.Checked Then
                    Insert.Add("Tipo_Bebidas", 0, "N")
                Else
                    Insert.Add("Tipo_Bebidas", 1, "N")
                End If


                If CheckGuarni1.Checked Then
                    Insert.Add("Guarniciones", 0, "N")
                Else
                    Insert.Add("Guarniciones", 1, "N")

                End If


                Insert.Add("activo", "0", "N")
                Xcute(Insert.SQL)


                MsgBox("Gracias por su selecciòn, Su pedido estara listo en unos minutos")

                Me.Close()
            Catch ex As Exception
                MsgBox(ex.Message)

            End Try
        End Sub

    Private Sub ButtonGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonGuardar.Click

            If Not ValidaDatos() Then Return

            Try
                Insert.Init("Pedidos")
                Insert.Add("Unidades_Menu", cboUnidadesPlatillos.SelectedIndex, "N")
                Insert.Add("Precio", Trim(Precio.Text), "S")
                Insert.Add("Descripcion_Menu", Trim(txtDescripcion1.Text), "S")
                Insert.Add("Orden", Trim(Label7.Text), "S")
                Insert.Add("Habitacion", Trim(habitacion.Text), "S")
                Insert.Add("Fecha_de_Pedido", Trim(DateTimePicker1.Text), "D")
                Insert.Add("Hora_de_Pedido", Trim(DateTimePicker2.Text), "DH")
                Insert.Add("PanesID", cboCodigo.Items(cbounidadespan.SelectedIndex), "N")


                If RadioBCafe.Checked Then
                    Insert.Add("Tipo_Bebidas", 0, "N")
                Else
                    Insert.Add("Tipo_Bebidas", 1, "N")
                End If


                If CheckGuarni1.Checked Then
                    Insert.Add("Guarniciones", 0, "N")
                Else
                    Insert.Add("Guarniciones", 1, "N")

                End If


                Insert.Add("activo", "0", "N")
                Xcute(Insert.SQL)


                MsgBox("Gracias por su selecciòn, Su pedido estara listo en unos minutos")

                Me.Close()
            Catch ex As Exception
                MsgBox(ex.Message)

            End Try
        End Sub

    Private Sub ButtonGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonGuardar.Click

            If Not ValidaDatos() Then Return

            Try
                Insert.Init("Pedidos")
                Insert.Add("Unidades_Menu", cboUnidadesPlatillos.SelectedIndex, "N")
                Insert.Add("Precio", Trim(Precio.Text), "S")
                Insert.Add("Descripcion_Menu", Trim(txtDescripcion1.Text), "S")
                Insert.Add("Orden", Trim(Label7.Text), "S")
                Insert.Add("Habitacion", Trim(habitacion.Text), "S")
                Insert.Add("Fecha_de_Pedido", Trim(DateTimePicker1.Text), "D")
                Insert.Add("Hora_de_Pedido", Trim(DateTimePicker2.Text), "DH")
                Insert.Add("PanesID", cboCodigo.Items(cbounidadespan.SelectedIndex), "N")


                If RadioBCafe.Checked Then
                    Insert.Add("Tipo_Bebidas", 0, "N")
                Else
                    Insert.Add("Tipo_Bebidas", 1, "N")
                End If


                If CheckGuarni1.Checked Then
                    Insert.Add("Guarniciones", 0, "N")
                Else
                    Insert.Add("Guarniciones", 1, "N")

                End If


                Insert.Add("activo", "0", "N")
                Xcute(Insert.SQL)


                MsgBox("Gracias por su selecciòn, Su pedido estara listo en unos minutos")

                Me.Close()
            Catch ex As Exception
                MsgBox(ex.Message)

            End Try
        End Sub

    martes, 3 de marzo de 2015 21:04

Respuestas

Todas las respuestas