Серый форум — VBS: Скрипт автоматической печати "всяких" документов из папки

Re: VBS: Скрипт автоматической печати "всяких" документов из папки

2014-12-01T00:28:43Z

alexii пишет:

Покажите Ваш код.

On Error Resume Next
Dim strTargetFolder
Dim strComputer

Dim objSWbemServicesEx
Dim objSWbemEventSource
Dim objSWbemObjectEx_Event
Dim objSWbemObjectEx_CIM_DataFile


strTargetFolder = "D:\PrintForMe"
strComputer     = "."

Set objSWbemServicesEx = GetObject("WinMgmts:\\" & strComputer & "\Root\CIMV2")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set LogStream = objFSO.OpenTextFile("D:\WORK\Скрипты\tXt.log", 8, True)

Set oAutoIt = WScript.CreateObject("AutoItX3.Control")

Set objSWbemEventSource = objSWbemServicesEx.ExecNotificationQuery( _
    "SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE " & _
    "TargetInstance ISA 'CIM_DirectoryContainsFile' AND " & _
    "TargetInstance.GroupComponent = 'Win32_Directory.Name=""" & Replace(strTargetFolder, "\", "\\\\") & """'")


Log

Do
    Set objSWbemObjectEx_Event = objSWbemEventSource.NextEvent
    Set objSWbemObjectEx_CIM_DataFile = objSWbemServicesEx.Get(objSWbemObjectEx_Event.TargetInstance.PartComponent)
    
    LogNew(strFileName)
    NewFile(strFileName)

    
    Select Case UCase(objSWbemObjectEx_CIM_DataFile.Extension)
        Case "DOC"
            PrintByWord  objSWbemObjectEx_CIM_DataFile.Name
        Case "RTF"
            PrintByWord  objSWbemObjectEx_CIM_DataFile.Name
        Case "XLS"
            PrintByExcel objSWbemObjectEx_CIM_DataFile.Name
        Case "PDF"
             PrintByPDF objSWbemObjectEx_CIM_DataFile.Name
        Case Else
            ' Nothing to do
    End Select
    
    WScript.Sleep 5000
    
    LogDel(strFileName)
    FileDel(strFileName)
    oAutoIt.ToolTip ""

    WScript.Sleep 5000

    objSWbemObjectEx_CIM_DataFile.Delete
Loop

WScript.Quit 0
'=============================================================================

'=============================================================================
Sub PrintByWord(strFileName)
    Const wdDoNotSaveChanges = 0
    
    Dim objWord
    Dim objDoc
    
    Set objWord = WScript.CreateObject("Word.Application")
    
    LogPrint(strFileName)
    Print(strFileName)
    
    With objWord
        Set objDoc = .Documents.Open(strFileName, False, True, False)
        
        objDoc.PrintOut True
        
        Do
            WScript.Sleep 500
        Loop Until .BackgroundPrintingStatus = 0
        
        Set objDoc = Nothing
        
        .Quit wdDoNotSaveChanges
    End With
    
    Set objWord = Nothing
End Sub
'=============================================================================

'=============================================================================
Sub PrintByExcel(strFileName)
    Dim objExcel
    Dim objWorkbook
    
    Set objExcel = WScript.CreateObject("Excel.Application")
    
    LogPrint(strFileName)
    Print(strFileName)
    
    With objExcel
        Set objWorkbook = .Workbooks.Open(strFileName, 0, True)
        
        objWorkbook.PrintOut
        objWorkbook.Saved = True
        
        Set objWorkbook = Nothing
        
        .Quit
    End With

    Set objExcel = Nothing
End Sub
'=============================================================================

'=============================================================================
Sub PrintByPDF(strFileName)
    
    Set WshShell = CreateObject("WScript.Shell")
    Run = WshShell.Run("pdfp.exe " & strFileName, 7, True)
    LogPrint(strFileName)
    Print(strFileName)
    
    Set WshShell = Nothing
End Sub
'=============================================================================

Sub NewFile(strFileName)
    
    oAutoIt.ToolTip Now() & " | | New file:    [" & objSWbemObjectEx_CIM_DataFile.Name & "]", 0, 955
    oAutoIt.Sleep 1000     ' Sleep to give tooltip time to display
    
End Sub
'=============================================================================

Sub FileDel(strFileName)
    
    oAutoIt.ToolTip Now() & " |  | Delete file: [" & objSWbemObjectEx_CIM_DataFile.Name & "]", 0, 955
    oAutoIt.Sleep 1000     ' Sleep to give tooltip time to display
    
End Sub
'=============================================================================

Sub Print(strFileName)
    
    oAutoIt.ToolTip Now() & " |  | Print file:  [" & strFileName & "]", 0, 955
    oAutoIt.Sleep 1000     ' Sleep to give tooltip time to display
    
End Sub
'=============================================================================

Sub Decode(strFileName)
    
    oAutoIt.ToolTip Now() & " |  | Decode file:  [" & strFileName & "]", 0, 955
    oAutoIt.Sleep 1000     ' Sleep to give tooltip time to display
    
End Sub
'=============================================================================

Sub Copy(strFileName)
    
    oAutoIt.ToolTip Now() & " |  | Copeing file:  [" & strFileName & "]", 0, 955
    oAutoIt.Sleep 1000     ' Sleep to give tooltip time to display
    
End Sub
'=============================================================================

Sub Rename(strFileName)
    
    oAutoIt.ToolTip Now() & " |  | Renamed file:  [" & strFileName & " to " & strTargetFolder & "\*.xls" & "]", 0, 955
    oAutoIt.Sleep 1000     ' Sleep to give tooltip time to display
    
End Sub
'=============================================================================

Sub Log()
    
    LogStream.WriteLine Now() & " Monitor files creation and Print documents in [" & strTargetFolder & "]..."
    
End Sub
'=============================================================================

Sub LogNew(strFileName)
    
    LogStream.WriteLine Now() & " | | New file:    [" & objSWbemObjectEx_CIM_DataFile.Name & "]"
    
End Sub
'=============================================================================

Sub LogDel(strFileName)
    
    LogStream.WriteLine Now() & " |  | Del file:    [" & objSWbemObjectEx_CIM_DataFile.Name & "]"
    
End Sub
'=============================================================================

Sub LogPrint(strFileName)
    
    LogStream.WriteLine Now() & " |  | Prn file:    [" & strFileName & "]"
    
End Sub
'=============================================================================

Sub LogDecode(strFileName)
    
    LogStream.WriteLine Now() & " |  | Dec file:    [" & strFileName & "]"
    
End Sub
'=============================================================================

Sub LogRename(strFileName)
    
    LogStream.WriteLine Now() & " |  | Ren file:    [" & strFileName & " to " & strTargetFolder & "\*.xls" & "]"
    
End Sub
'=============================================================================

Sub LogCopy(strFileName)
    
    LogStream.WriteLine Now() & " |  | Cop file:    [" & strFileName & "]"
    
End Sub
'=============================================================================

Re: VBS: Скрипт автоматической печати "всяких" документов из папки

2014-11-30T13:37:36Z

JSman, Вы знаете — а ведь на самом-то деле Ваша идея вполне гожа. Наш-то скрипт для чего? Для печати «всяческих» документов. Многократной печати. Так что — хрен с ним, с рублём. Будем сами запускать «пустой» Adobe Reader в скрытом режиме при отсутствии такового. И пусть себе этот один экземпляр «висит» в процессах. Оговорим этот момент в описании — и точка. Что ж делать, ежели иначе на WSH не выходит корректно. Что скажете?

Re: VBS: Скрипт автоматической печати "всяких" документов из папки

2014-11-30T12:50:34Z

Понял, согласен.

Re: VBS: Скрипт автоматической печати "всяких" документов из папки

2014-11-30T12:24:52Z

а) приложение «Adobe Reader» «мельтешит» на экране, б) остаётся запущенным после исполнения глагола «print», если ранее не было запущено других экземпляров приложения и в) исполнение глагола асинхронное — для любого отслеживания по процессам придётся играть в «угадайку» со временем.

Re: VBS: Скрипт автоматической печати "всяких" документов из папки

2014-11-30T11:57:08Z

А почему бы для печати не использовать verb "print"?

Re: VBS: Скрипт автоматической печати "всяких" документов из папки

2014-11-26T08:24:29Z

Покажите Ваш код.

Re: VBS: Скрипт автоматической печати "всяких" документов из папки

2014-11-26T08:15:17Z

alexii пишет:

ReX03 пишет:
но допишите его для PDF файлов
Чем не устраивает решение, предложенное выше?

не работает ( или я "чайник" и не правильно что-то сделал.
предыдущий вариант на ворд и на эксель работает, а этот сразу вылетает.

Re: VBS: Скрипт автоматической печати "всяких" документов из папки

2014-11-26T08:00:31Z

ReX03 пишет:

но допишите его для PDF файлов

Чем не устраивает решение, предложенное выше?

ReX03 пишет:

можно еще было бы дополнение на графические файлы, но с ними наверняка сложнее...

Вопрос опять же в конкретном приложении.

Re: VBS: Скрипт автоматической печати "всяких" документов из папки

2014-11-26T07:40:45Z

скрипт хорош и работает, но допишите его для PDF файлов и объясните мне "чайнику" как его запустить в автоматическом режиме...
можно еще было бы дополнение на графические файлы, но с ними наверняка сложнее...

Re: VBS: Скрипт автоматической печати "всяких" документов из папки

2010-03-01T12:41:55Z

На здоровье......
Единственный вопрос, который меня мучает до сих пор - как нормально декодировать письма?! Т.Е. при ПЕРЕСЫЛКЕ письма, сохранение проходит в формат .емл, а если приложение содержит вложенный файл с русскими буковками - корректное декодирование не проходит..... декодируется файл с расширением dat
в то же время механизм декодировки в тотал командере работает на ура..... нО! как его прикруить к скрипту?
может кто сталкивался с нормальными внешними обработчиками и что подскажет? либо как это проделать стандартными средствами винды?

Re: VBS: Скрипт автоматической печати "всяких" документов из папки

2010-03-01T08:45:51Z

Спасибо, помогло !.

Re: VBS: Скрипт автоматической печати "всяких" документов из папки

2010-02-27T16:01:17Z

Ок. в скрипте пользую также программулину для раскодировки .eml писем.

On Error Resume Next
Dim strTargetFolder
Dim strComputer

Dim objSWbemServicesEx
Dim objSWbemEventSource
Dim objSWbemObjectEx_Event
Dim objSWbemObjectEx_CIM_DataFile


strTargetFolder = "c:\Файлы"
strComputer     = "."

Set objSWbemServicesEx = GetObject("WinMgmts:\\" & strComputer & "\Root\CIMV2")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set LogStream = objFSO.OpenTextFile("D:\WORK\Скрипты\tXt.log", 8, True)

Set oAutoIt = WScript.CreateObject("AutoItX3.Control")

Set objSWbemEventSource = objSWbemServicesEx.ExecNotificationQuery( _
    "SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE " & _
    "TargetInstance ISA 'CIM_DirectoryContainsFile' AND " & _
    "TargetInstance.GroupComponent = 'Win32_Directory.Name=""" & Replace(strTargetFolder, "\", "\\\\") & """'")


Log

Do
    Set objSWbemObjectEx_Event = objSWbemEventSource.NextEvent
    Set objSWbemObjectEx_CIM_DataFile = objSWbemServicesEx.Get(objSWbemObjectEx_Event.TargetInstance.PartComponent)
    
    LogNew(strFileName)
    NewFile(strFileName)

    
    Select Case UCase(objSWbemObjectEx_CIM_DataFile.Extension)
        Case "DOC"
            PrintByWord  objSWbemObjectEx_CIM_DataFile.Name
        Case "RTF"
            PrintByWord  objSWbemObjectEx_CIM_DataFile.Name
        Case "XLS"
            PrintByExcel objSWbemObjectEx_CIM_DataFile.Name
        Case "PDF"
             PrintByPDF objSWbemObjectEx_CIM_DataFile.Name
        Case "EML"
             PrintByEML objSWbemObjectEx_CIM_DataFile.Name
        Case "MSG"
             PrintByMSG objSWbemObjectEx_CIM_DataFile.Name
        Case "ZIP"
             PrintByARC objSWbemObjectEx_CIM_DataFile.Name
        Case "ARJ"
             PrintByARC objSWbemObjectEx_CIM_DataFile.Name
        Case "RAR"
             PrintByARC objSWbemObjectEx_CIM_DataFile.Name
        Case "DAT"
             PrintByDAT objSWbemObjectEx_CIM_DataFile.Name
        Case Else
            ' Nothing to do
    End Select
    
    WScript.Sleep 5000
    
    LogDel(strFileName)
    FileDel(strFileName)
    oAutoIt.ToolTip ""

    WScript.Sleep 5000

    objSWbemObjectEx_CIM_DataFile.Delete
Loop

WScript.Quit 0
'=============================================================================

'=============================================================================
Sub PrintByWord(strFileName)
    Const wdDoNotSaveChanges = 0
    
    Dim objWord
    Dim objDoc
    
    Set objWord = WScript.CreateObject("Word.Application")
    
    LogPrint(strFileName)
    Print(strFileName)
    
    With objWord
        Set objDoc = .Documents.Open(strFileName, False, True, False)
        
        objDoc.PrintOut True
        
        Do
            WScript.Sleep 500
        Loop Until .BackgroundPrintingStatus = 0
        
        Set objDoc = Nothing
        
        .Quit wdDoNotSaveChanges
    End With
    
    Set objWord = Nothing
End Sub
'=============================================================================

'=============================================================================
Sub PrintByExcel(strFileName)
    Dim objExcel
    Dim objWorkbook
    
    Set objExcel = WScript.CreateObject("Excel.Application")
    
    LogPrint(strFileName)
    Print(strFileName)
    
    With objExcel
        Set objWorkbook = .Workbooks.Open(strFileName, 0, True)
        
        objWorkbook.PrintOut
        objWorkbook.Saved = True
        
        Set objWorkbook = Nothing
        
        .Quit
    End With

    Set objExcel = Nothing
End Sub
'=============================================================================

'=============================================================================
Sub PrintByPDF(strFileName)
    
    Set WshShell = CreateObject("WScript.Shell")
    Run = WshShell.Run("pdfp.exe " & strFileName, 7, True)
    LogPrint(strFileName)
    Print(strFileName)
    
    Set WshShell = Nothing
End Sub
'=============================================================================

'=============================================================================
Sub PrintByEML(strFileName)
    
    Set WshShell = CreateObject("WScript.Shell")
    Run = WshShell.Run("D:\WORK\WoRK\doc\unmime.exe /m " & strFileName, 7, True)
    LogDecode(strFileName)
    Decode(strFileName)

    Set WshShell = Nothing
End Sub
'=============================================================================

'=============================================================================
Sub PrintByMSG(strFileName)
    
    Set WshShell = CreateObject("WScript.Shell")
    Run = WshShell.Run("D:\WORK\WoRK\doc\unmime.exe /m " & strFileName, 7, True)
    LogDecode(strFileName)
    Decode(strFileName)

    Set WshShell = Nothing
End Sub
'=============================================================================

Sub PrintByARC(strFileName)
    
    Set WshShell = CreateObject("WScript.Shell")
    Run = WshShell.Run("cmd.exe /c copy " & strFileName & " \\comp-01\C$\Archiv_fl\*.*", 7, True)
    LogCopy(strFileName)
    Copy(strFileName)

    Set WshShell = Nothing
End Sub
'=============================================================================

Sub PrintByDAT(strFileName)
    
    Set WshShell = CreateObject("WScript.Shell")
    Run = WshShell.Run("cmd.exe /c copy " & strFileName & " c:\Файлы\*.xls", 7, True)
    LogRename(strFileName)
    Rename(strFileName)

    Set WshShell = Nothing
End Sub
'=============================================================================

Sub NewFile(strFileName)
    
    oAutoIt.ToolTip Now() & " | | New file:    [" & objSWbemObjectEx_CIM_DataFile.Name & "]", 0, 955
    oAutoIt.Sleep 1000     ' Sleep to give tooltip time to display
    
End Sub
'=============================================================================

Sub FileDel(strFileName)
    
    oAutoIt.ToolTip Now() & " |  | Delete file: [" & objSWbemObjectEx_CIM_DataFile.Name & "]", 0, 955
    oAutoIt.Sleep 1000     ' Sleep to give tooltip time to display
    
End Sub
'=============================================================================

Sub Print(strFileName)
    
    oAutoIt.ToolTip Now() & " |  | Print file:  [" & strFileName & "]", 0, 955
    oAutoIt.Sleep 1000     ' Sleep to give tooltip time to display
    
End Sub
'=============================================================================

Sub Decode(strFileName)
    
    oAutoIt.ToolTip Now() & " |  | Decode file:  [" & strFileName & "]", 0, 955
    oAutoIt.Sleep 1000     ' Sleep to give tooltip time to display
    
End Sub
'=============================================================================

Sub Copy(strFileName)
    
    oAutoIt.ToolTip Now() & " |  | Copeing file:  [" & strFileName & "]", 0, 955
    oAutoIt.Sleep 1000     ' Sleep to give tooltip time to display
    
End Sub
'=============================================================================

Sub Rename(strFileName)
    
    oAutoIt.ToolTip Now() & " |  | Renamed file:  [" & strFileName & " to " & strTargetFolder & "\*.xls" & "]", 0, 955
    oAutoIt.Sleep 1000     ' Sleep to give tooltip time to display
    
End Sub
'=============================================================================

Sub Log()
    
    LogStream.WriteLine Now() & " Monitor files creation and Print documents in [" & strTargetFolder & "]..."
    
End Sub
'=============================================================================

Sub LogNew(strFileName)
    
    LogStream.WriteLine Now() & " | | New file:    [" & objSWbemObjectEx_CIM_DataFile.Name & "]"
    
End Sub
'=============================================================================

Sub LogDel(strFileName)
    
    LogStream.WriteLine Now() & " |  | Del file:    [" & objSWbemObjectEx_CIM_DataFile.Name & "]"
    
End Sub
'=============================================================================

Sub LogPrint(strFileName)
    
    LogStream.WriteLine Now() & " |  | Prn file:    [" & strFileName & "]"
    
End Sub
'=============================================================================

Sub LogDecode(strFileName)
    
    LogStream.WriteLine Now() & " |  | Dec file:    [" & strFileName & "]"
    
End Sub
'=============================================================================

Sub LogRename(strFileName)
    
    LogStream.WriteLine Now() & " |  | Ren file:    [" & strFileName & " to " & strTargetFolder & "\*.xls" & "]"
    
End Sub
'=============================================================================

Sub LogCopy(strFileName)
    
    LogStream.WriteLine Now() & " |  | Cop file:    [" & strFileName & "]"
    
End Sub
'=============================================================================

как то так.....
+ко всему, прикручивал к работе портайбл версию офиса.... пока лицензию не приобрел.... )

Re: VBS: Скрипт автоматической печати "всяких" документов из папки

2010-02-27T14:51:31Z

Если я верно понял он всё равно требуует. что бы был установлен акробат ридер... А ты можеш кинуть сюда ВЕСЬ скрипт которым ты уже давно пользуешся для печати ВСЕХ файлов.

Re: VBS: Скрипт автоматической печати "всяких" документов из папки

2010-02-27T08:34:28Z

Проблема в том, что Адоб не может нормально закрыть после себя окно программы, т.е. после распечатки документа адоб весит в процессах и окно в панели задач....
решение, которым можно пользовать - pdfp.exe
Уже давно пользую данный скрипт для автоматической обработки почты и вообще любых файлов....

Re: VBS: Скрипт автоматической печати "всяких" документов из папки

2010-02-26T15:22:01Z

Уважаемый Alexii. Пользуюсь Вашим скриптом, очень помогает. Хочу попросить Вас, если это не трудно, расширить его возможности на файлы *.PDF или хотя бы намекнуть как это сделать с помощью "Adobe Reader" или "PDF-Xchabge Viewer"