ник: Bellerofont
А заказчик использует Adobe Acrobat Professional? Версия?
Могло бы быть и так:
Dim oDistiller As Object
'Set oDistiller = CreateObject("PDFDistiller.PDFDistiller.1") 'Acrobat 5
Set oDistiller = CreateObject("ACRODISTXLib.PdfDistiller6") 'Acrobat 6
oDistiller.FileToPDF vstrPSFile, vstrPDFFile, ""
|