Сесть и написать. Если сами не будете — излагайте в подробностях, что есть «автопечать».
Спасибо за "помощь"
]]>Файлы текстовые, кодировка ОЕМ/866?
Да, во вложении пример
]]>Сесть и написать. Если сами не будете — излагайте в подробностях, что есть «автопечать».
При попадании в указанную папку текстового файла, он сразу же уходит печататься на принтер.
Я и вставил этот код, но как сделать печать на определенный принтер, тут я бессилен.
1. Можно ли печатать из разных папок в разные принтеры
Можно.
2. Если это возможно через приложение NotePad++, т.к. кодировка dos866
Насколько я вижу, NPP, несмотря на неоднократные запросы (Notepad++ / Feature Requests / #1730 Command-line print option), не поддерживает печать из командной строки.
А как можно?
Спасибо за ссыль
1. Можно ли печатать из разных папок в разные принтеры
Можно.
2. Если это возможно через приложение NotePad++, т.к. кодировка dos866
Насколько я вижу, NPP, несмотря на неоднократные запросы (Notepad++ / Feature Requests / #1730 Command-line print option), не поддерживает печать из командной строки.
]]>
Option Explicit : Dim objWord, objDoc, wssh, objFS, objPath, objFolder, objItem, ques
Const wdDoNotSaveChanges = 0
Const wdPromptToSaveChanges = -2
Const wdSaveChanges = -1
Set wssh = CreateObject("WScript.Shell")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objPath = objFS.GetFolder("c:\doc\")
Set objWord = WScript.CreateObject("Word.Application")
Do
PrintDelInFolder objPath
WScript.Sleep 1000
If Minute(Time)=0 and Second(Time)<5 then
ques=wssh.Popup("Не желаете завершить работу скрипта автопечати документов?"&vbCrLf&"Следующий запрос будет через час...",, "Скрипт автопечати | Lucky edited", 36)
if ques=6 then WScript.Quit
WScript.Sleep 5000
End If
Loop
Sub PrintDelInFolder(objFolder)
For Each objItem In objFolder.Files
If StrComp(objFS.GetExtensionName(objItem.Name), "txt", vbTextCompare) = 0 Then
With objWord
Set objDoc = .Documents.Open(objItem.Path, False, True, False)
objDoc.PrintOut False
.Quit
Set objDoc = Nothing
WScript.Sleep 500
objFS.DeleteFile objItem.Path
End With
End If
Next
End Sub
Set objWord = Nothing
WScript.Quit 0