Здравствуйте! подскажите пожалуйста как можно напечатать файл excel используя командную строку windows при этом не отображать excel файл, а сразу отправлять на печать? или может есть какой то аргумент командной строки для печати excel файла?
1 ответ
Аргумента для печати в excel раньше не было. Может что-то изменилось с тех пор? Не знаю.
Можно составить скрипт для Windows Script Host на VBScript или JScript, который запускаются в командной строке с помощью cscript.exe. Готовые скрипты легко находятся в интернете. Надо только в гугле написать ключевые слова: excel print command line.
Так же можно применить powershell.
Вообще можете использовать любой скриптовый язык, каким владеете, лишь бы он умел "автоматить" OLE Automation.
В скрипте создаётся объект excel и на этом объекте вызываются нужные методы для открытия файла, для его печати, в общем всё что хотите. При этом сам excel можно показать, а можно и спрятать. (В своё время на Perl таким образом составлял отчёты в excel)
Поправленный скрипт печати xls. Оригинальный на http://www.excelforum.com/excel-general/513760-what-is-the-command-line-print-switch-in-excel.html
Const xlDoNotSaveChanges = 2
Dim fso, oXL, oWkbk
Set fso = CreateObject("Scripting.FileSystemObject")
Set oXL = CreateObject("Excel.Application")
oXL.Visible = False
If WScript.Arguments.Count = 0 Then
WScript.Quit
Else
For A = 0 To (WScript.Arguments.Count - 1)
If (Right(WScript.Arguments.Item(A), 3) = "xls") AND fso.FileExists(WScript.Arguments.Item(A)) Then
Set oWkbk = oXL.Workbooks.Open(WScript.Arguments.Item(A))
oWkbk.PrintOut
oWkbk.Close xlDoNotSaveChanges
End If
Next
End If
oXL.Quit
Set fso = Nothing
Set oXL = Nothing
-
cscript.exe C:\Test\PrintWkbk.vbs "C:\xlFiles\Text.xls"
cscript.exe - для запуска скриптов в консольном режиме. Как раз то, что нужно для командной строки. Есть ещё wscript.exe - для запуска в оконном режиме.– Sergey15 ноя 2015 в 7:38 -
-
@Vlad Хотя в VBScript не силён, но думаю ошибка в длинном IF. Там за каким-то ... затесалось подчёркивание. В ответ вставил исправленный скрипт.– Sergey15 ноя 2015 в 8:20
-
-
@Vlad В системе принтер по умолчанию назначен? Ещё попробуйте oXL.Visible = True, чтобы посмотреть открывается ли Ваш файл? Может что-то не так с аргументами в командной строке? Файл xls или xlsx (или какое сейчас модное расширение)?– Sergey15 ноя 2015 в 8:38