Imprimir Documento Excel

Iniciado por RandomSoft, Febrero 04, 2013, 01:23:12 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Febrero 04, 2013, 01:23:12 PM Ultima modificación: Octubre 21, 2013, 11:16:36 PM por Expermicid
Bueno amigos, en esta oportunidad he querido compartir algo que de seguro a muchos les a de servir, espero que se diviertan programando, cualquier duda o consulta pregunten.

Código: vbnet

Public Function Imprimir(ByVal Dirtdsd) As Boolean
        Try
            Obj_Excel = CreateObject("Excel.Application")
            ' -- Agregar nuevo libro
            Obj_Libro = Obj_Excel.Workbooks.Open(Filename:=Dirtdsd)
            ' -- Referencia a la Hoja activa ( la que añade por defecto Excel )
            Obj_Hoja = Obj_Excel.ActiveSheet

            ' -- Indicamos si queremos o no mostrar el Documento
            Obj_Excel.Visible = False

            With Obj_Excel
            ' -- Aqui indicamos que vamos a imprimir
                .ActiveWorkbook.PrintOutEx()
            ' -- Por ultimo cerramos el Documento.
                .ActiveWorkbook.Close(Filename:=Dirtdsd)
                .Quit()
            End With
            Return True
        Catch ex As Exception
            MessageBox.Show("Error: " & ex.Message, "Sistema de Kardex")
            Return False
        End Try
    End Function
El Lenguaje es la Ciudad para cuya Edificación cada Ser Humano ha Aportado una Piedra

Muy buen aporte amigo. Saludos.
System32
XD
No tienes permitido ver los links. Registrarse o Entrar a mi cuenta