Автоматическая печать .docx документа сразу после его открытия?

Question

[Денис Николаев]

Добрый день. Хочу реализовать такую задачу. Есть "самописная" программка которая генерирует в word квитанцию. На сегодняшний день после формирования документа я нажимаю на иконку быстрой печати в word.

Можно ли что то придумать что бы как только сформировался документ он отправлялся на печать и документ закрывался. Рассматриваются любые инструменты - vba, auto IT, прочее. Гугл конкретного ничего по поиску не предлагает а штудировать форумы нет времени (работать надо). Может кто-то уже использует что-то подобное на практике. Заранее благодарю за советы.

Comments

[h8nor]

Программа вами написана? Можно было впилить кнопку в меню. Но если печать не из офиса - скриптом будет проще (например vbs).

Sub FileHandling(folder)
  Dim cnt, file, ObjWord
  
  Set ObjWord = CreateObject("Word.Application")
'  ObjWord.Visible = True ' Debug
  For Each file In folder.Files
  If "docx" = LCase(fso.GetExtensionName(file)) Then
    With ObjWord.Documents.Open(file.Path)
      ' Do Something... '
      .Close False
    End With: cnt = cnt + 1
  End If
  Next
  ObjWord.Quit: Set ObjWord = Nothing
End Sub

Dim fso, folder

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(fso.GetAbsolutePathName(".")) ' Current folder '
FileHandling(folder)
Set fso = Nothing

[Денис Николаев]

Дѣаволъ: Спасибо.