Устанавливаем систему печати в 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
Скрипт печати файлов 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
Комментариев нет:
Отправить комментарий