SoloCodigo

Private Sub btnImprimirFormato_Click(sender As System.Object, e As System.EventArgs) Handles btnImprimirFormato.Click
        If nudCantidad.Value = 0 Then
            MessageBox.Show("Debe seleccionar una cantidad mayor a CERO", "Error", MessageBoxButtons.OK, MessageBoxIcon.Information)
            nudCantidad.Focus()
        Else

            Dim ret As Boolean
            ' le pasa el documento de word que se va a imprimir 
            ret = Imprimir("C:\Users\MarioChep-Thinks\Desktop\Compilacion 5 dias\Interfaz de Prueba DLL LetScan\Resources\HOJA_RESPUESTA FINAL.docx", False)
            If ret Then
                MsgBox("Ok", vbInformation)
            End If
        End If

    End Sub

    Public Function Imprimir(Path As String, Optional Visible_Word As Boolean = True) As Boolean
        ' variable de objeto para acceder al Word 
        Dim Obj_Word As Object
        ' crea el objeto 
        Obj_Word = CreateObject("Word.Application")

        ' Visible / No visible 
        If Visible_Word Then
            Obj_Word.Visible = True
        Else
            Obj_Word.Visible = False
        End If

        'Abre el documento 
        Obj_Word.Documents.Open(Path)
        ' Imprime el documento activo con Printout 
        Obj_Word.ActiveDocument.Printout()
        ' Cierra el documento 
        Obj_Word.Quit()
        ' Elimina la referencia 
        Obj_Word = Nothing
        ' retorno 
        If Err.Number = 0 Then
            Imprimir = True
        End If
        Exit Function

Error_Function:

        ' error 
        MsgBox(Err.Description)
        On Error Resume Next

        Obj_Word = Nothing
        Obj_Word.Quit()

    End Function