Cómo puedo imprimir un fichero desde Datacycle usando un script

Datacycle Reporting permite la ejecución de scritps a través de la tarea Código script dentro de un proceso. Este script puede ser programado tanto en lenguaje VBScript como en JScript.

A continuación tenemos varios ejemplos en Visual Basic Script que nos permiten imprimir todos los archivos de un directorio, o bien, un archivo concreto:

1. Todos los archivos de un directorio:

Sub ImprimirFichero
    Dim TargetFolder
    Dim objShell,objFolder,colItems

    TargetFolder = "C:\Informes"
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(TargetFolder)
    Set colItems = objFolder.Items
    For Each objItem in colItems
        objItem.InvokeVerbEx("Print")
    Next

    Set objShell = Nothing
    Set objFolder = Nothing
    Set colItems = Nothing

End Sub

2. Un archivo de texto:

Sub ImprimirTodos
        Dim objShell,objFolder,objFolderItem
        Dim strFileName,strPath
       
        strFileName = "MailLog.txt"
        strPath = "C:\"
        Set objShell = CreateObject("Shell.Application")
        Set objFolder = objShell.Namespace(strPath)
        Set objFolderItem = objFolder.ParseName(strFileName)
        objFolderItem.InvokeVerbEx("Print")

        Set objShell = Nothing
        Set objFolder = Nothing
        Set objFolderItem = Nothing

End Sub

3. Todas las hojas de un libro Excel:

Sub ImprimirTodasExcel
    Dim objExcel, objWorkBook

    Set objExcel = CreateObject("EXCEL.APPLICATION")
    Set objWorkBook = objExcel.Workbooks.Open("C:\informe.xls")
    objWorkBook.PrintOut
    objWorkBook.Close False
    Set objWorkBook = Nothing
    Set objExcel = Nothing
End Sub

4. Una hoja determinada de un libro Excel:

Sub ImprimirExcel
    Dim objExcel, objWorkBook

    Set objExcel = CreateObject("EXCEL.APPLICATION")
    Set objWorkBook = objExcel.Workbooks.Open("C:\informe.xls")
    objWorkBook.Sheets ("Definición").PrintOut
    objWorkBook.Close False
    Set objWorkBook = Nothing
    Set objExcel = Nothing
End Sub