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.
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
Muy buen aporte amigo. Saludos.