| View previous topic :: View next topic |
| Author |
Message |
zet
Joined: 27 Aug 2005
Posts: 42
|
 (Separately) Posted: Thu Sep 22, 2005 12:22 Post subject: Печать перечня файлов |
 |
|
могу я в TC распечатать перечень файлов, находящихся в файловой панели ?
Спасибо
| ! | Avada: | | Перемещено из Секретов и советов в Автоматизацию. | |
|
| Back to top |
|
 |
Вахмурка
Joined: 27 Dec 2004
Posts: 2586
Location: Большая деревня Москва
|
| (Separately) Posted: Thu Sep 22, 2005 12:31 Post subject: |
|
|
Батник:
а можно и прямо из командной строки... |
|
| Back to top |
|
|
Volniy
Joined: 15 Dec 2004
Posts: 585
Location: Местный
|
| (Separately) Posted: Thu Sep 22, 2005 14:40 Post subject: Re: печать перечня файла |
|
|
| zet wrote: | | могу я в TC распечатать перечень файлов, находящихся в файловой панели ? |
Файл(File)->Печать(Print)->Список файлов(File list) |
|
| Back to top |
|
|
Sined
Joined: 13 Jan 2005
Posts: 21
|
| (Separately) Posted: Mon Nov 28, 2005 15:19 Post subject: |
|
|
| можно ли как-то распечатать список файлов с колонками, возвращаемыми контентными плагинами? |
|
| Back to top |
|
|
CaptainFlint
Joined: 14 Dec 2004
Posts: 6192
Location: Москва
|
| (Separately) Posted: Mon Nov 28, 2005 16:13 Post subject: |
|
|
Sined
См. плагин wdxInfoPacker: с её помощью создаёшь файл, который потом и распечатываешь. |
|
| Back to top |
|
|
Sined
Joined: 13 Jan 2005
Posts: 21
|
| (Separately) Posted: Tue Nov 29, 2005 17:13 Post subject: |
|
|
| Спасибо. То, что нужно. Буду читать о настройке |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sat Oct 11, 2014 12:02 Post subject: |
|
|
Набросок по данной заявке (не проверял):
| Code: | '========================================================================================================
' Разнести файлы по маске на 3 принтера без повторной печати
' Условие: путь запуска - пустой
' Параметры: "<путь к log.файлу>" <маска 1> <маска 2> <маска 3> "<принтер 1>" "<принтер 2>" "<принтер 3>"
' Пример: C:\Print\Log.txt *-Тит.pdf *-А4.pdf *-А3.pdf "Xerox Printer" "Samsung Printer" "Epson Printer"
'========================================================================================================
With WScript.Arguments
If .Count <> 7 Then
MsgBox "Должно быть указано 7 параметров!", 48, Space(28) & "Печать файлов"
WScript.Quit
End If : PrintLog = .Item(0)
Filters = Array(.Item(1), .Item(2), .Item(3))
Printers = Array(.Item(4), .Item(5), .Item(6))
End With
Set mPrinters = CreateObject("WScript.Network").EnumPrinterConnections
Set Dict = CreateObject("Scripting.Dictionary")
For Pr = 1 to mPrinters.Count Step 2 : Dict.Add mPrinters(Pr), Null : Next
For Each Pr in Printers
If Not Dict.Exists(Pr) Then ErrList = ErrList & vbNewLine & Pr : s = s + 1 : End If
Next
If s > 0 Then
If s > 1 Then PFix = "ы"
MsgBox "Принтер" & PFix & " не найден" & PFix & ":" & ErrList, 48, Space(17) & "Печать файлов"
WScript.Quit
End If
Set SHA = CreateObject("Shell.Application")
CD = CreateObject("WScript.Shell").CurrentDirectory
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(PrintLog) Then ReadLog = FSO.OpenTextFile(PrintLog,,,-1).ReadAll
For i = 0 to Ubound(Filters) - 1
Set Items = SHA.NameSpace(CD).Items
Items.Filter 192, Filters(i)
If Items.Count Then
For Each F in Items
If Not InStrRev(ReadLog, F) Then
SHA.ShellExecute F.Path, """" & Printers(i) & """", _
FSO.GetParentFolderName(F) & "\", "printto", 0
FSO.OpenTextFile(PrintLog, 8, True, -1).WriteLine Now & " " & F.Path
End If
Next
End If
Next |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
_4uX_
Joined: 20 Oct 2011
Posts: 7
|
| (Separately) Posted: Mon Nov 10, 2014 13:41 Post subject: |
|
|
Flasher , Спасибо.
1. Печать идёт через Adobe Reader 9.2.0 ru и после завершения печати остаётся окно программы. Возможно ли реализовать чтоб оно автоматически закрывалось?
2. При печати создается Log в кодировке ANSI и символы отображаются не верно. Приходится переводить, например, в UTF-16 LE. Можно с этим что-то поделать? |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Mon Nov 10, 2014 14:22 Post subject: |
|
|
_4uX_
1. После 45 строки добавить строку
| Code: | CreateObject("WScript.Shell").Run "taskkill /T /IM Acrobat.exe", 0, True |
2. Не может быть. По коду он сразу создаётся и далее читается в UTF-16 LE. Если бы файл был изначально сохранён в ANSI, то юникодные символы уже были бы утеряны, и конвертация тут ничего бы не дала.
Что-то мне подсказывает, что под "переводить" имеется в виду настройка отображения в самом редакторе. Нет?
Можно даже на проверку попробовать в пустую папку закинуть 1 ранее распечатанный файл и проверить, пойдёт ли печать.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
