Imprimir Documento Excel

  • 1 Respuestas
  • 4196 Vistas

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

Desconectado RandomSoft

  • *
  • Underc0der
  • Mensajes: 128
  • Actividad:
    0%
  • Reputación 0
  • using Underc0de;
  • Skype: randomsofthack
    • Ver Perfil
    • Marketing Online | Diseño Web | Hosting Profesional - GlobalPer
    • Email

Imprimir Documento Excel

  • en: Febrero 04, 2013, 01:23:12 pm
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) [Seleccionar]
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
« Última modificación: Octubre 21, 2013, 11:16:36 pm por Expermicid »
El Lenguaje es la Ciudad para cuya Edificación cada Ser Humano ha Aportado una Piedra

Desconectado @NetFcruz

  • *
  • Underc0der
  • Mensajes: 40
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email

Re:Imprimir Documento Excel

  • en: Marzo 12, 2013, 05:02:58 pm
Muy buen aporte amigo. Saludos.
System32
XD