ESTE CODIGO IMPRIME UN DOCUMENTO WORD, DIRECTAMENTE SIN APARECER EL WORD PARA NADA, POR SUPUESTO SI EN LA MAQUINA NO ESTA INSTALADA LA APLICACION, ABORTA.
******************
Dim RetVal%
RetVal = MsgBox("PARA IMPRIMIR EL FICHERO NECESITA EL PROCESADOR DE TEXTOS 'WORD', EN CASO DE QUE NO LO TENGA EN SU ORDENADOR CANCELE LA OPERACION..... ", 17, "! ! ! A T E N C I O N ¡ ¡ ¡")
Select Case RetVal
Case 1 'Aceptar / Ok
Dim WrdObj As Object
Dim Resultado As Long
Dim strucFName As OFSTRUCT
Dim Fichero As String
Fichero = "C:\DIRECTORI\NOMBREDELFICHERO.DOC"
On Error GoTo TrataErrorX
Screen.MousePointer = vbHourglass
' Comprobar que el fichero Command Exista...
Resultado = OpenFile(Fichero, strucFName, OF_EXIST)
If Resultado = -1 Then
MsgBox " El fichero : '" & Fichero & "' no se ha encontrado" & Chr$(13) & "Debe indicar una localizacion o fichero correcto.", vbExclamation
End
End If
Set WrdObj = GetObject(, "Word.application")
WrdObj.Visible = False
WrdObj.Documents.Open FileName:=Fichero ' Se abre el documentos
WrdObj.Documents(Fichero).Activate ' Lo 'activamos'
WrdObj.ActiveDocument.PrintOut ' Se imprime
Screen.MousePointer = vbDefault
On Error GoTo 0
Exit Sub
TrataErrorX:
If Err = 429 Then
Set WrdObj = CreateObject("word.application")
Resume Next
Else
MsgBox "Se ha producido un error no controlado , Err = " & Err & Chr(13) & "Desc