Печать нескольких листов в один pdf

[tae1980]

Ламерский вопрос (но что же делать), как правильно подключить в VBA все функции из этой библиотеки:
GSDLL32.DLL 32-bit dynamic link library containing most of Ghostscript's functionality
Приложить не могу, она более 11Мб.
То есть вообще как правильно подключить dll.
Как я понимаю нужно что-то этого вида

Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

Но что делать нужно подключить все функции? Тем более когда нет подробностей.

[Hugo121]

Я пас - мало работал с внешними библиотеками. С Ghostscript вообще дела не имел.

[tae1980]

Есть такой код

        Sheets(word(Листы, n, "||")).PrintOut ActivePrinter:=ПринтерPDF
        Name "c:\gs\temp\!tmp.pdf" As "c:\gs\temp\Лист" & n & ".pdf"

Иногда при выполнение второй строке вылетает ошибка "File not found". Причина понятно, первая строка не успела отработать.
Вопрос: как дождаться когда первая строка отработает? Простейший вариант - пауза, но я считаю это неправильно, так как не известно точное время окончания работы первой строки.

[Hugo121]

Поставьте в цикл проверку наличия этого файла.
И DoEvents вероятно в цикл добавьте - чтоб для печати ресурсы были.

[tae1980]

Теперь стала вылетать ошибка "75 path/file access error" ))
Если я правильно все понимаю из-за того, что файл уже есть, но еще занят виртуальным принтером.
Как проверить, отсутствие защиты от записи на файле?

[Hugo121]

Не знаю... Может быть пробовать открыть как текст на чтение, и если нет ошибки, то сразу закрыть и переименовывать?
Или просто сразу пытаться в цикле переименовывать, пока получится? (т.е. не будет ошибки)

[tae1980]

Сообщение от Hugo121

Не знаю... Может быть пробовать открыть как текст на чтение, и если нет ошибки, то сразу закрыть и переименовывать?
Или просто сразу пытаться в цикле переименовывать, пока получится? (т.е. не будет ошибки)

Не получается...
Нашел способ: (GetAttr("c:\gs\temp\!tmp.pdf") And vbReadOnly) = 0
Придется крутить два цикла подряд.

[tae1980]

Сообщение от tae1980

Нашел способ: (GetAttr("c:\gs\temp\!tmp.pdf") And vbReadOnly) = 0

Что-то он не очень работает. :(( GetAttr упорно возвращает 32, и ни чего кроме этой цифры. Что бы я не делал ошибка 75 все равно вылетает. Жмешь "продолжить" все работает.

[tae1980]

Еще один вопрос: как удалить все файлы (или по маске) в директории?

[Hugo121]

Не знаю - может быть неоптимально, может лучше сразу всю папку удалить, но с маской можно типа этого (скрипт vbs):

'Удаление файлов XLS если они старше 10 дней 
Dim FSO
Dim TheFolder, TheFiles, AFile

Set FSO = CreateObject("Scripting.FileSystemObject")
Set TheFolder = FSO.GetFolder("C:\Temp\") 'Каталог, откуда удалять
Set TheFiles = TheFolder.Files

For Each AFile In TheFiles
    If UCase(FSO.GetExtensionName(AFile.Path)) = "XLS" and _ 
        DateDiff("d", AFile.DateLastModified, Date) > 10  Then
        AFile.Delete
    End If
Next

А так всю папку с подпапками:

Dim fso, oFolder

Set fso = CreateObject("Scripting.FileSystemObject") 
Set oFolder = fso.GetFolder("c:\Temp\ttt\") 

fso.DeleteFolder oFolder, true

или чуть покороче:

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject") 

fso.DeleteFolder fso.GetFolder("c:\Temp\ttt\"), true