Script - Imprimir un documento de word

Creado por David Miralpeix, Modificado el Fri, 16 Feb 2024 a las 12:28 PM por David Miralpeix

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


 Código VB6:

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


Código C#:

using Ahora.Word;
using System;

namespace AhoraScriptsVacia
{
    public class Script_66 : AhoraOCX.AhoraBaseScript
    {
        public void Main()
        {
            string lPath = AhoraCore.VBA.Interaction.InputBox("Introduzca ruta de fichero WORD:", "Introduzca Ruta", "C:\\TEMP\\PruebaFile.docx");

            if (lPath.Length > 0 )
            {
                IWordApplication objWord = AhoraCore.AhoraServiceLocator.Current.GetService<Ahora.Word.IWordApplication>();
                IWordDocument objDoc = objWord.Documents.Open(lPath);

                objDoc.PrintOut();
                objDoc.Close();

                objWord = null;

                AhoraCore.VBA.Interaction.MsgBox("Impreso");
            }
        }
    }
}

¿Le ha sido útil este artículo?

¡Qué bien!

Gracias por sus comentarios

¡Sentimos mucho no haber sido de ayuda!

Gracias por sus comentarios

¡Háganos saber cómo podemos mejorar este artículo!

Seleccione al menos una de las razones
Se requiere la verificación del CAPTCHA.

Sus comentarios se han enviado

Agradecemos su esfuerzo e intentaremos corregir el artículo