Cómo puedo imprimir un fichero desde Datacycle usando un script
 01-25-2007
01-25-2007 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 
 Montse Cortés |  Sin Comentarios  |
Montse Cortés |  Sin Comentarios  |   


