comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Imprimir Documento Excel

  • 1 Respuestas
  • 3039 Vistas

0 Usuarios y 2 Visitantes están viendo este tema.

Desconectado RandomSoft

  • *
  • Underc0der
  • Mensajes: 127
  • Actividad:
    0%
  • Reputación 0
  • using Underc0de;
    • Ver Perfil
    • Marketing Online | Diseño Web | Hosting Profesional - GlobalPer
    • Email
  • Skype: randomsofthack
« 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: vb.net
  1. Public Function Imprimir(ByVal Dirtdsd) As Boolean
  2.         Try
  3.             Obj_Excel = CreateObject("Excel.Application")
  4.             ' -- Agregar nuevo libro
  5.             Obj_Libro = Obj_Excel.Workbooks.Open(Filename:=Dirtdsd)
  6.             ' -- Referencia a la Hoja activa ( la que añade por defecto Excel )
  7.             Obj_Hoja = Obj_Excel.ActiveSheet
  8.  
  9.             ' -- Indicamos si queremos o no mostrar el Documento
  10.             Obj_Excel.Visible = False
  11.  
  12.             With Obj_Excel
  13.             ' -- Aqui indicamos que vamos a imprimir
  14.                 .ActiveWorkbook.PrintOutEx()
  15.             ' -- Por ultimo cerramos el Documento.
  16.                 .ActiveWorkbook.Close(Filename:=Dirtdsd)
  17.                 .Quit()
  18.             End With
  19.             Return True
  20.         Catch ex As Exception
  21.             MessageBox.Show("Error: " & ex.Message, "Sistema de Kardex")
  22.             Return False
  23.         End Try
  24.     End Function
  25.  
« Ú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
« Respuesta #1 en: Marzo 12, 2013, 05:02:58 pm »
Muy buen aporte amigo. Saludos.
System32
XD

 

¿Te gustó el post? COMPARTILO!



Exportar Excel a PDF

Iniciado por RandomSoft

Respuestas: 6
Vistas: 5433
Último mensaje Marzo 12, 2013, 05:40:22 pm
por RandomSoft