'Begin Description ' Вывод на печать всех .spo-файлов в заданной папке по маске. ' Скрипт обрабатывает все файлы, отвечающие заданной маске (например, "*.spo", "out*.spo"), ' расположенные в заданной папке. ' Допустим, 2 файла с именами output1.spo и myoutput.spo лежат в одной папке. ' Тогда сначала открывается и отсылается на печать output1.spo, затем ' открывается и отсылается на печать myoutput.spo. 'End Description 'Тема: Вывод на печать всех .spo-файлов в заданной папке по маске. 'Ключевые слова: печать, выдача, файлы, пути, папки, .spo. 'Опубликован: 01.08.2002, перевод: 20.06.2008. 'Автор: rlevesque@videotron.ca; перевод: А. Балабанов. 'Размещение: http://www.spsstools.ru/Scripts/Printing/PrintAllSpoFiles.txt (.sbs) 'Проверено: SPSS 15.0.0. 'NB! Когда принцип работы скрипта станет ясен, снимите кавычку комментария с команды objOutputDoc.PrintDoc чтобы 'печать фактически началась. В данном варианте скрипт лишь последовательно открывает/закрывает все 'подходящие файлы .spo в папке - примеч. перев. Option Explicit Sub Main Dim objDocuments As ISpssDocuments Dim objOutputDoc As ISpssOutputDoc Dim strPath As String Dim strFileMask As String Dim strFname As String Dim intCount As Integer Dim I As Integer 'Укажите путь к папке и маску strPath ="c:\\temp\\" strFileMask ="*.spo" 'Определяем имя первого файла выдачи strFname = Dir$(strPath & strFileMask) Set objDocuments = objSpssApp.Documents While strFname <> "" Debug.Print strFname ' Открываем файл документа, делаем документ видимым, запускаем на печать: Set objOutputDoc = objSpssApp.OpenOutputDoc(strPath & strFname) objOutputDoc.Visible = True ' objOutputDoc.PrintDoc ' Для сбережения оперативной памяти закрываем все документы выдачи кроме текущего '(использование всякий раз простой конструкции "objOutputDoc.Close" может приводить к зависанию spsswin.exe!) intCount = objDocuments.OutputDocCount If intCount > 1 Then For I = intCount - 1 To 0 Step -1 Set objOutputDoc = objDocuments.GetOutputDoc(I) If Not objOutputDoc.Designated Then objOutputDoc.Close End If Next End If 'Переходим к следующему файлу в папке strFname = Dir$() Wend Set objOutputDoc = Nothing End Sub