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
