Давно пользуюсь Foxit Reader. Печать проходит, но, к сожалению, после этого окно программы Foxit Reader не закрывается. Можно что-нибудь придумать?
Если речь про версию 7.x, то ничего. Silent printing does not work anymore in version 7c - Foxit Corporation Forums:
Is it possible to make Foxit Reader close automatically after carrying out the print job? For instance via a command line switch?
Currently Foxit Reader can not be closed automatically after carrying out the print job. I've reported your comments to Foxit bug tracking system for processing. Report ID#: 61267. Thank you.
и пока я не вижу, чтобы что-то изменилось. Т.е., его поведение стало аналогичным поведению Adobe Reader'а. В соседней теме предлагали пользовать утилиту для этих целей.
У Вас какая версия?
Я использую для Ctrl+P Ваш скрипт.
Можно ли доработать скрипт так, чтобы все выделенные графические файлы отправлялись в штатную программу "Печать изображений" Windows 7?
1. Доработать — нет, нельзя, надо переделывать на обработку списков.
2. У меня нет Windows 7.
Так, например, происходит, если отправить выделенные файлы на печать через контекстное меню проводника.
Печать происходит «молча»?
]]>Sub PrintPDF(strFileName)
objWshShell.Run """c:\Program Files\Foxit Software\Foxit Reader\FoxitReader.exe"" /p """ & strFileName & """", 0, False
End Sub
Давно пользуюсь Foxit Reader. Печать проходит, но, к сожалению, после этого окно программы Foxit Reader не закрывается. Можно что-нибудь придумать?
Второй вопрос связанный с работой скрипта по другим форматам.
Возник вопрос по отправке на печать графических файлов.
Использую версию totalcmd 8.51 на Windows 7.
При выделении в панели totalcmd нескольких файлов и выполнении Ctrl+F9 (штатная команда totalcmd из меню файл-печать) на печать отправляется лишь один файл (последний из выделенных).
Я использую для Ctrl+P Ваш скрипт.
Можно ли доработать скрипт так, чтобы все выделенные графические файлы отправлялись в штатную программу "Печать изображений" Windows 7?
Так, например, происходит, если отправить выделенные файлы на печать через контекстное меню проводника.
]]>Пока нашел альтенативный промотрщик pdf, который работает с коммандной строкой и закрывает себя после печати: Manual for Sumatra PDF reader.
Но по скорости он медленнее.
Если будет желание/возможность доработать Acrobat, то было бы здорово. Если нет, то альтернативный вариант пока вполне сгодится.
В любом случае спасибо за помощь!
objFSO.GetFile(strFileName).Name = objFSO.GetBaseName(strFileName) & "_printed." & objFSO.GetExtensionName(strFileName)выше, внутрь цикла:
End Select
objFSO.GetFile(strFileName).Name = objFSO.GetBaseName(strFileName) & "_printed." & objFSO.GetExtensionName(strFileName)
End If
LoopА в:
Sub PrintPDF(strFileName)
objWshShell.Run """C:\TotalCommanderPortable\Other\Reader\AcroRd32"" /h /p """ & strFileName & """", 0, False
End Subпоменять «False» на «True» для ожидания завершения печати.
]]>Если речь про этот скрипт, то добавьте строку «objFSO.GetFile(strFileName).Name = objFSO.GetBaseName(strFileName) & "_printed." & objFSO.GetExtensionName(strFileName)» в скрипт примерно так:
… If Not objExcel Is Nothing Then objExcel.Quit Set objExcel = Nothing End If objFSO.GetFile(strFileName).Name = objFSO.GetBaseName(strFileName) & "_printed." & objFSO.GetExtensionName(strFileName) End If …
Спасибо за ответ. Да, речь именно об этом скрипте.
При добавлении строчки в указанное место получаем:
файлы DOC - из трех выделенных печатаются все, но переименовывается только один
файлы PDF - из трех выделенных переименовывается только один, а печатются только два непереименованных (на третьем Acrobat выдает ошибку, что не может найти указанный файл)
Скрипт у меня в таком виде:
Option Explicit
Const ForReading = 1
Dim objFSO
Dim objTS
Dim objWshShell
Dim objWord
Dim objDoc
Dim objExcel
Dim objWorkbook
Dim strListFileName
Dim strFileName
If WScript.Arguments.Count = 1 Then
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")
strListFileName = WScript.Arguments.Item(0)
'WScript.Echo strListFileName
If objFSO.FileExists(strListFileName) Then
Set objTS = objFSO.OpenTextFile(strListFileName, ForReading)
Set objWord = Nothing
Set objExcel = Nothing
Do Until objTS.AtEndOfStream
strFileName = objTS.ReadLine()
'WScript.Echo strFileName
If objFSO.FileExists(strFileName) Then
Select Case UCase(objFSO.GetExtensionName(strFileName))
Case "DOC"
PrintDOC strFileName
Case "XLS"
PrintXLS strFileName
Case "PDF"
PrintPDF strFileName
Case Else
' Nothing to do
End Select
End If
Loop
If Not objWord Is Nothing Then
objWord.Quit
Set objWord = Nothing
End If
If Not objExcel Is Nothing Then
objExcel.Quit
Set objExcel = Nothing
End If
objFSO.GetFile(strFileName).Name = objFSO.GetBaseName(strFileName) & "_printed." & objFSO.GetExtensionName(strFileName)
End If
Set objWshShell = Nothing
Set objFSO = Nothing
End If
WScript.Quit 0
'=============================================================================
'=============================================================================
Sub PrintDOC(strFileName)
Const wdDoNotSaveChanges = 0
If objWord Is Nothing Then
Set objWord = WScript.CreateObject("Word.Application")
End If
With objWord
Set objDoc = .Documents.Open(strFileName, False, True, False)
objDoc.PrintOut True
Do
WScript.Sleep 500
Loop Until .BackgroundPrintingStatus = 0
objDoc.Close wdDoNotSaveChanges
Set objDoc = Nothing
End With
End Sub
'=============================================================================
'=============================================================================
Sub PrintXLS(strFileName)
If objExcel Is Nothing Then
Set objExcel = WScript.CreateObject("Excel.Application")
End If
With objExcel
.AskToUpdateLinks = False
.Interactive = False
.DisplayAlerts = False
Set objWorkbook = .Workbooks.Open(strFileName, 0, True)
objWorkbook.PrintOut
objWorkbook.Close False
Set objWorkbook = Nothing
End With
End Sub
'=============================================================================
'=============================================================================
Sub PrintPDF(strFileName)
objWshShell.Run """C:\TotalCommanderPortable\Other\Reader\AcroRd32"" /h /p """ & strFileName & """", 0, False
End Sub
'============================================================================= …
If Not objExcel Is Nothing Then
objExcel.Quit
Set objExcel = Nothing
End If
objFSO.GetFile(strFileName).Name = objFSO.GetBaseName(strFileName) & "_printed." & objFSO.GetExtensionName(strFileName)
End If
…В созданном пункте меню TC меняете «Command:» на:
wscript.exe "<путь>\PrintSilent.vbs"В «Parameters:» указываете «%L».
P.S. Если Вы ранее импортировали reg-файл из #21 — удалите из реестра добавленные им параметры, для текущего метода печати они не нужны.
Спасибо за скрипт! Адаптировал его для печати pdf, аналогично txt файлам. Но есть вопрос: возможно ли, чтобы после печати в имя файла добавлялось произвольное слово или буква? Т.е. если был файл допустим 2011_02_14_01.pdf, то после печати он переименовывался в 2011_02_14_01printed.pdf ?
Заранее благодарю.
© 2007 http://www.script-coding.com При любом использовании материалов сайта обязательна ссылка на него как на источник информации, а также сохранение целостности и авторства материалов.
Это максимум, что требуется, если Вы захотите его где-то разместить; я-то точно не буду этим заниматься — на мой взгляд скрипт тривиален, узкоспецифичен и малоценен.
]]>
Мастер знает, что делать 
Замените:
Case "DOC"на:
Case "DOC", "DOCX", "RTF"и:
Case "XLS"на:
Case "XLS", "XLSX"Скрипт работает на ура!!!
Чего ещё не хватает, и является желательным, так это поддержки нового офисного расширения - *.docx, а также распространённого *.rtf.
Поэтому, если есть возможность, прошу добавить.
Причина была в том, imho, что я Вашу новую версию скрипта скопировал, а в старт-меню total не поменял ключи с %p%n на %L.
Бывает.
В отношении назначения клавиш - у меня total v.7.04. Там в главном окне опций программы в разделе Misk. есть возможность выбрать необходимое сочетание клавиш.
…
В более ранних версиях total это тоже работает, даже несмотря на то, что в главном окне опций нету окна настройки.
В той, что я использовал для отладки (6.55), — есть. Однако, поскольку, как я и писал выше, его не пользую, то и не знал где «копать». Поиск в справке к нужному результату меня не привёл.
]]>