0

Здравствуйте! подскажите пожалуйста как можно напечатать файл excel используя командную строку windows при этом не отображать excel файл, а сразу отправлять на печать? или может есть какой то аргумент командной строки для печати excel файла?

1 ответ 1

0

Аргумента для печати в 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
11
  • cscript.exe C:\Test\PrintWkbk.vbs "C:\xlFiles\Text.xls" cscript.exe - для запуска скриптов в консольном режиме. Как раз то, что нужно для командной строки. Есть ещё wscript.exe - для запуска в оконном режиме.
    – Sergey
    15 ноя 2015 в 7:38
  • запустил данный скрипт ссылка получаю ошибку: Предполагается наличие окончания инструкции
    – Vlad
    15 ноя 2015 в 8:08
  • @Vlad Хотя в VBScript не силён, но думаю ошибка в длинном IF. Там за каким-то ... затесалось подчёркивание. В ответ вставил исправленный скрипт.
    – Sergey
    15 ноя 2015 в 8:20
  • ошибки нет, но на печать что то ничего не отправляется )
    – Vlad
    15 ноя 2015 в 8:27
  • @Vlad В системе принтер по умолчанию назначен? Ещё попробуйте oXL.Visible = True, чтобы посмотреть открывается ли Ваш файл? Может что-то не так с аргументами в командной строке? Файл xls или xlsx (или какое сейчас модное расширение)?
    – Sergey
    15 ноя 2015 в 8:38

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.