среда, 13 марта 2019 г.

Печать pdf

Устанавливаем систему печати в PDF
Скрипт печати файлов pdf из папки
Печать pdf из папки
Печать на сетевой принтер без драйверов
Автоматическая печать из папки
Поддержка печати в PDF файл в Windows 10
PDFPrint-FM – Windows Service with Folder Monitoring – Prints PDF’s



Ниже взято здесь.
Windows: Скрипт для автоматической печати документов из папки
 
Текст VBS-скрипта PrintPDFfromFolder.vbs:

Option Explicit : Dim objWord, objDoc, wssh, objFS, objShell, objPath, objFolder, objItem

Set wssh = CreateObject("WScript.Shell")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objPath = objFS.GetFolder("d:\pdfprint\") 'Папка, из которой файлы отправляются на печать

Do
  PrintDelInFolder objPath
  WScript.Sleep 1000 ' Частота проверки папки -- 1 секунда
Loop

Sub PrintDelInFolder(objFolder)
    For Each objItem In objFolder.Files
        If StrComp(objFS.GetExtensionName(objItem.Name), "pdf", vbTextCompare) = 0 Then
                With wssh
            WScript.Sleep 1000
                    On Error Resume Next
            dim f
            f = Cstr(objItem.Path+".pdf")
            objFS.MoveFile objItem.Path, f
            If err.number=0 then
                Set objShell = CreateObject("Shell.Application")       
                objShell.ShellExecute f, "vbHide", "", "print", 0
                set objShell = nothing
                err.Clear
                Do
                WScript.Sleep 5000
                objFS.DeleteFile f ,true
                        Loop While objFS.FileExists(f)
                err.Clear
            End If
            On Error Goto 0
        End With
        End If
    Next
End Sub
WScript.Quit 0

WScript PrintPDFfromFolder.vbs 
taskkill /F /IM wscript.exe /T


export LC_ALL=C.UTF-8
/opt/1C/v8.3/x86_64/1cv8
 

Комментариев нет:

Отправить комментарий