Серый форум — VBS: Автопечать на разные принтеры через notepad++

Re: VBS: Автопечать на разные принтеры через notepad++

null@example.com (lim_) — Tue, 15 Jul 2014 05:55:15 +0000

alexii пишет:

Сесть и написать. Если сами не будете — излагайте в подробностях, что есть «автопечать».

Спасибо за "помощь"

Re: VBS: Автопечать на разные принтеры через notepad++

null@example.com (lim_) — Thu, 03 Jul 2014 12:03:26 +0000

alexii пишет:

Файлы текстовые, кодировка ОЕМ/866?

Да, во вложении пример

Re: VBS: Автопечать на разные принтеры через notepad++

null@example.com (alexii) — Thu, 03 Jul 2014 11:42:22 +0000

Файлы текстовые, кодировка ОЕМ/866?

Re: VBS: Автопечать на разные принтеры через notepad++

null@example.com (lim_) — Thu, 03 Jul 2014 10:51:31 +0000

alexii пишет:

Сесть и написать. Если сами не будете — излагайте в подробностях, что есть «автопечать».

При попадании в указанную папку текстового файла, он сразу же уходит печататься на принтер.
Я и вставил этот код, но как сделать печать на определенный принтер, тут я бессилен.

Re: VBS: Автопечать на разные принтеры через notepad++

null@example.com (alexii) — Thu, 03 Jul 2014 10:48:23 +0000

Сесть и написать. Если сами не будете — излагайте в подробностях, что есть «автопечать».

Re: VBS: Автопечать на разные принтеры через notepad++

null@example.com (lim_) — Thu, 03 Jul 2014 09:57:37 +0000

alexii пишет:

1. Можно ли печатать из разных папок в разные принтеры
Можно.
2. Если это возможно через приложение NotePad++, т.к. кодировка dos866
Насколько я вижу, NPP, несмотря на неоднократные запросы (Notepad++ / Feature Requests / #1730 Command-line print option), не поддерживает печать из командной строки.

А как можно?
Спасибо за ссыль

Re: VBS: Автопечать на разные принтеры через notepad++

null@example.com (alexii) — Thu, 03 Jul 2014 09:48:26 +0000

1. Можно ли печатать из разных папок в разные принтеры

Можно.

2. Если это возможно через приложение NotePad++, т.к. кодировка dos866

Насколько я вижу, NPP, несмотря на неоднократные запросы (Notepad++ / Feature Requests / #1730 Command-line print option), не поддерживает печать из командной строки.

VBS: Автопечать на разные принтеры через notepad++

null@example.com (lim_) — Thu, 03 Jul 2014 08:39:30 +0000

Добрый день
1. Можно ли печатать из разных папок в разные принтеры
2. Если это возможно через приложение NotePad++, т.к. кодировка dos866
Вот код
Спасибо


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