Страницы: 1
RSS
Скрипт печати. Автоматическая печать, Печать файлов
 

ВСЕМ ДОБРОГО ДНЯ!

Как долго я никого не мучила здесь)))))

Очень давно уважаемый HUGO помог мне с большим количеством печати документов. Тогда необходимо было распечатать акты приема передачи, счета-фактуры и акты сверок (каждый по 250 штук) одной кнопкой.

Сегодня задача усложнилась. Раньше  файлы формировались автоматически по номеру договора, в папке сортировались сами по возрастанию номера договора:

Акт ПП декабрь 2016Акт_ПП_М#DON-30006412-NG-BELG-16-VV-1.xls

Акт ПП декабрь 2016Акт_ПП_М#DON-30006413-NG-BIOS-16-VV-1.xls

Акт ПП декабрь 2016Акт_ПП_М#DON-30006492-NG-NESK-16-VV-1.xls

Акт ПП декабрь 2016Акт_ПП_М#DON-30006520-NG-RURES-16-VV-1.xls

Скрипт также распечатывал по порядку. По такому порядку распечатывались и письма, и конверты.

Сегодня получили реестр новых договоров на 2017 год, в котором по одному и тому же контрагенту заключены по 3-4 договора.

Если сейчас я сформирую в папку документы, то файлы будут расположены в таком порядке:

Акт ПП декабрь 2016Акт_ПП_М#DON-30006410-NG-NESK-16-VV-1.xls

Акт ПП декабрь 2016Акт_ПП_М#DON-30006412-NG-BELG-16-VV-1.xls

Акт ПП декабрь 2016Акт_ПП_М#DON-30006413-NG-BIOS-16-VV-1.xls

Акт ПП декабрь 2016Акт_ПП_М#DON-30006414-NG-BELG-16-VV-1.xls

Акт ПП декабрь 2016Акт_ПП_М#DON-30006492-NG-NESK-16-VV-1.xls

Акт ПП декабрь 2016Акт_ПП_М#DON-30006520-NG-RURES-16-VV-1.xls

Теперь при распечатке через скрипт нарушен порядок, документы одного и того же контрагента будут распечатаны в начале, середине и конце. Нет ли возможности задать в самом скрипте распечатку именно по коду контрагента NESK, BELG, BIOS и т.д.

На данный момент надо сформировать более 2000 документов. И  сделать надо сегодня   :oops:

Спасибо заранее!!!!!!!!!!!!!!!!!!!!

Прилагаю код скрипта

Dim FSO, objExcel, wb
Dim TheFolder, TheFiles, AFile

Set FSO = CreateObject("Scripting.FileSystemObject")
Set TheFolder = FSO.GetFolder("U") 'Каталог, откуда печатать
Set TheFiles = TheFolder.Files
Set objExcel = CreateObject("Excel.Application")

For Each AFile In TheFiles
If UCase(FSO.GetExtensionName(AFile.Path)) = "XLS" Then
Set wb = objExcel.Workbooks.Open (AFile)
wb.printout
wb.close 0
End If
Next

objExcel.Quit
Изменено: Карина - 17.02.2017 10:18:04
 
Слово "порядок" сегодня рулит. Но нет времени корректировать)))))
 
Можно только один вопрос ))))
Эта задача вообще решаема?
Ну хоть что-нибудь ответьте))))
Просмотров уже 30...
Изменено: Карина - 17.02.2017 10:57:03
 
Хорошо, второй вопрос))
Это задача настолько сложна, что даже ни одного ответа?
Быть может я:
- нарушила правила форума
- непонятно изложила суть
- ?
 
Цитата
Карина написал:
Можно только один вопрос ))))
Эта задача вообще решаема?
Ну хоть что-нибудь ответьте))))
Просмотров уже 30...
В принципе решаема, но наверное не интересна, для тех кто может ее решить. Тем более что вы попросили не  помочь вам решить задачу, а сделать все за вас.
Попробуйте фильтровать файлы по маске и помещать в папку файлы в нужном порядке. Возможно это будет выходом в вашей ситуации.
 
Спасибо! ))))
 
Карина, код следует оформлять соответствующим тегом.
Страницы: 1
Наверх