Flasher
|
 Posted: Sat Feb 15, 2014 22:23 Post subject: |
 |
|
| Batya wrote: | | приоритет отдаю читабельности кода, нежели компактности |
Тут компактность
| Code: | If Printer <> "" Then objW.ActivePrinter = Printer :CheckErr 1,1 : WScript.Sleep 500 |
а тут ... 
| Code: | If Pages <> "" Then
WdPrintOutRange = 4
Else
WdPrintOutRange = 0
End If |
Может, я неправильно понимаю слово "читабельность"?
А c какой целью ты List упрятал в процедуру?
| Code: | List = Split(FSO.OpenTextFile(ListF, 1, False, -1).ReadAll, vbNewLine)
For Each F In List
If Trim(F) <> "" Then
F = GetPath(F)
'Обрабатываем только файлы
If FSO.FileExists(F) Then Print(F) :CheckErr 0,1
End If
Next |
не лучше заменить на?: | Code: | Set List = FSO.GetFile(ListF).OpenAsTextStream(1, -1)
Do While Not List.AtEndOfStream
F = GetPath(List.ReadLine)
If FSO.FileExists(F) Then Print(F) :CheckErr 0,1
Loop : List.Close |
Ты вроде любишь память экономить.
Я бы добавил момент, когда печать не прошла, но ошибок не было, как в случае выше.
В шапку таки стоит добавить обязательность параметров.
И как я вижу, ты убрал отправку сообщений админу, что было лишним для "простых смертных".
Кстати, я бы и под другие офисные форматы скрипт допилил, скажем, под Exel/PowerPoint там строчек 10 всего требуется. Не точно по теме топика, но всё же.
И у меня касаемо старого и нового скрипта вопрос. Почему ты пишешь в качестве примера сетевой путь к принтеру? Обычные имена по идее должны работать.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
