Scripts varios

Introducir una ruta de archivo cualquiera y que imprima el documento de word


Ver código ejemplo


Sub Main()

frmAux.Descargar 'ATENCIÓN: DEBE ESTAR SIEMPRE QUE NO SE MUESTRE EL FORMULARIO.

lpath = InputBox ("Intoduzca path","C:\Users\miuser\Desktop\file.docx","Introduzca path")

If Len(lpath)>0 Then

    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Open(CStr(lpath))

    objDoc.PrintOut()
    objWord.Quit

End If
End Sub


Autor: Daniel Ernesto Lutz Llano