Зависания при распечатки из приложения ms access через acrobat disteller

[xanderg]

Добрый день!
Давно мучает следующая проблема. Периодически при попытки распечатыки из приложения аксесс счета в пдф файл через дистиллер приложение зависает, приходится закрывать через диспетчера задач. Естесственно, никакой счет не печатается, принтер по умолчанию остается на акробат дистиллере, т.к. процедура до конца не выполняется.
Говорят, частота зависаний напрягающая. Хотя иногда печатает хоть 20 документов подряд.
С чем это может быть связано?

[xanderg]

Public Sub PDF(index As Integer, stDocName As String)
Dim stDocName2 As String, LLen, k, lk
Dim rst As DAO.Recordset
Dim dbs As DAO.Database
Dim sql As String, strCID, email, d, mess
Dim rstCompany As DAO.Recordset, cID2 As String, cID As String
Dim i, strmessage As String
Dim dr As aht_tagDeviceRec
Static atagDevices() As aht_tagDeviceRec
d = getTMPFolder
Set dbs = CurrentDb


k = 1
'Отправка по e-mail
Select Case index
Case 1, 2
CompanyID = Forms![СчетаФактуры]![Рег.№ Заказчик]
Case 3
CompanyID = Forms![Счета]![Рег.№ Заказчик]
End Select

cID2 = CompanyID

Set rst = dbs.OpenRecordset("EmailOption", dbOpenDynaset)
sql = "SELECT Company.[БухгалтерEMail] as SendTo FROM Company WHERE (((Company.CompanyID)=" + cID2 + ") and " _
& "((Company.[БухгалтерEMail]) Is Not Null) );"

Set rstCompany = dbs.OpenRecordset(sql, dbOpenDynaset)


Select Case index
Case 1, 2

Case 3
stDocName2 = "Счет"

End Select


'Список доступных принтеров
If ahtGetDefaultPrinter(dr) Then
For i = 1 To ahtGetPrinterList(atagDevices())
If atagDevices(i).drDeviceName = "Acrobat Distiller" Then
ChangeToAcrobat
DoCmd.OpenReport stDocName, acViewNormal

OpenDialog
ResetDefaultPrinter
DoCmd.Close acReport, stDocName
d = d + stDocName2 + ".pdf"
Name d As FileNamePDF

Dim m As Message, s As String, res As Long, nv
nv = InputBox("Адрес отправителя:", "e-Mail", rst!MailFrom)
If nv = "" Then nv = rst!MailFrom
m.strFrom = Nz(nv, "")
' m.strFrom = Nz(rst!MailFrom, "")
m.strTo = Nz(rstCompany!SendTo, "")
m.strReplyTo = Nz(nv, "")
m.strSubj = Nz(rst!MessageSubject, "")
m.strBody = Nz(mess, "")
m.strBodyPTHTML = Nz(mess, "")
m.strHdrTransferEncoding = ""
m.strTransferEncoding = ""
m.strContentType = "text/plain"
m.strFileAttach = d
m.strExtraHeaders = ""
m.iPriority = 0
m.strOrganization = ""
If rst!authentication Then
res = SendAuthMsg(AddressOf Progress, m, Nz(rst!smtp, ""), rst!User, rst!pass)
Else
res = SendMsg(AddressOf Progress, m, Nz(rst!smtp, ""))
End If
If res = 0 Then
MsgBox "Сообщение отправлено."
Else
MsgBox "Ошибка отправления. - " & res
End If
GoTo 1
Else
End If
Next i
MsgBox "Необходимо установить принтер 'Acrobat Distiller'!", vbCritical
GoTo 1
End If
End If

Case 3
'stDocName2 = "Счет"
If ahtGetDefaultPrinter(dr) Then
For i = 1 To ahtGetPrinterList(atagDevices())
If atagDevices(i).drDeviceName = "Acrobat Distiller" Then
ChangeToAcrobat
DoCmd.OpenReport stDocName, acViewNormal

'OpenDialog
ResetDefaultPrinter
DoCmd.Close acReport, stDocName
'd = d + stDocName2 + ".pdf"
'Name d As FileNamePDF

GoTo 1
Else
End If
Next i
MsgBox "Необходимо установить принтер 'Acrobat Distiller'!", vbCritical
GoTo 1
End If


End Select



1:

End Sub

зависает на выделенной строке

[just_a_coder]

А на настоящий принтер нормально печатается ?

[xanderg]

честно говоря, этот отчет на обычный принтер печатать не требовалось