Задать вопрос
@ganbatte

Есть vps скрипт, который печатает с папки, файлы pdf. Но все время выходит та программа по умолчанию для pdf, как исправить?

Вот сам скрипт.
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("C:\Folder\") 'Папка, из которой файлы отправляются на печать
 
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


Сначала выходил такая ошибка 5beccb7e4538d234597819.png
Потом установил adobe acrobat. И заработал, но при каждом печати, запускается это программа. Как сделать что бы она не появлялся ? или есть другие решения ? Я делала это по этому мануалу
Ссылка на источник
  • Вопрос задан
  • 260 просмотров
Подписаться 1 Средний Комментировать
Решения вопроса 1
NeiroNx
@NeiroNx
Программист
Sumatra PDF Умеет печатать из командной строки, без создания дополнительных окон.
Ответ написан
Комментировать
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Похожие вопросы