{ }

;

Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel

    Dim Obj_Excel As Excel.Application
    Dim Obj_Libro As Object
    Dim Obj_Hoja As Object
    Dim iCol As Long

    Dim excelWorkbook As Workbook = Nothing

    Dim paramExportFormat As XlFixedFormatType = _
        XlFixedFormatType.xlTypePDF
    Dim paramExportQuality As XlFixedFormatQuality = _
        XlFixedFormatQuality.xlQualityStandard
    Dim paramOpenAfterPublish As Boolean = False
    Dim paramIncludeDocProps As Boolean = True
    Dim paramIgnorePrintAreas As Boolean = True
    Dim paramFromPage As Object = Type.Missing
    Dim paramToPage As Object = Type.Missing

Public Function Exportar(ByVal Dirtd As String, ByVal Dirts As String)
        On Error GoTo Error_Handler

        Dim i As Integer
        Dim j As Integer

       'Colocar el cursor de espera mientras se exportan los datos
        Sistema.Cursor = Cursors.WaitCursor

        With Export.DataGridView1
            If .Rows.Count = 0 Then
                MsgBox("No hay datos para exportar a excel. Se ha indicado 0 en el parámetro Filas ")
            Else
                ' -- Crear nueva instancia de Excel   
                Obj_Excel = CreateObject("Excel.Application")
                ' -- Agregar nuevo libro
                Obj_Libro = Obj_Excel.Workbooks.Open(Filename:=Dirtd)

                excelWorkbook = Obj_Libro
                ' -- Referencia a la Hoja activa ( la que añade por defecto Excel )   
                Obj_Hoja = Obj_Excel.ActiveSheet

                iCol = 0
                ' --  Recorrer el Datagrid ( Las columnas )   
                For i = 0 To .Columns.Count - 1
                    ' -- Incrementar índice de columna   
                    iCol = iCol + 1
                    ' -- Obtener el caption de la columna   
                    Obj_Hoja.Cells(5, iCol) = .Columns(i).HeaderText
                    ' -- Recorrer las filas   
                    For j = 0 To .Rows.Count - 1
                        ' -- Asignar el valor a la celda del Excel
                        Obj_Hoja.Cells(j + 6, iCol) = .Rows(j).Cells(i).Value()
                    Next
                Next

                ' -- Hacer excel visible   
                Obj_Excel.Visible = False

                ' -- Opcional : colocar en negrita los enbezados en la hoja   
                With Obj_Hoja
                    .Rows(5).Font.Bold = True
                    ' -- Autoajustar las cabeceras   
                    .Columns("A:Z").AutoFit()
                End With

                'Convertir excel a pdf
                If Not excelWorkbook Is Nothing Then
                    excelWorkbook.ExportAsFixedFormat(paramExportFormat, Dirts, paramExportQuality, paramIncludeDocProps, paramIgnorePrintAreas, paramFromPage, paramToPage, paramOpenAfterPublish)
                End If

                With Obj_Excel
                    'Cierra el documento abierto ( True es para guardar los cambios )
                    .ActiveWorkbook.Close(SaveChanges:=False)
                    'Destruye las variables de objeto y cierra la aplicación de word   
                    .Quit()
                End With
            End If
        End With

        ' -- Eliminar las variables de objeto excel
        Obj_Hoja = Nothing
        Obj_Libro = Nothing
        Obj_Excel = Nothing

        Sistema.Cursor = Cursors.Default

        Return Obj_Hoja
        Exit Function

Error_Handler:

        MsgBox(Err.Description, vbCritical, "Sistema de Kardex")
        On Error Resume Next

        Obj_Hoja = Nothing
        Obj_Libro = Nothing
        Obj_Excel = Nothing
        Sistema.Cursor = Cursors.Default
    End Function

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