Всем добрый день.
Наткнулся на проблему при выгрузке отчета в pdf. В базе формируются отчеты, на которых присутствует изображение (внедренный объект) - Печать. Отчет выбирается в ПолеСоСписком0 и далее процедура экспорта. Сам экспорт работает, а вот саму Печать не экспортирует. Хотя при печати на pdf принтер все нормально передается. Подскажите как подправить процедуру экспорта, чтобы передавалась картинка.
Заранее благодарен.

+

Private Sub Экспорт_Pdf_Click() Dim sReportName$, sFolderName$, sFileName$, sFilePath$, blRet$, sDir$ sDir = CurrentProject.path 'Задаём постоянное место расположения папки sDir = sDir & "\Експорт\" Dim s$ s = Replace(Trim([Forms]![Расходная]![Грузополучатель]), """", "") 'Задаём имя вложенной папки If Dir(sDir, vbDirectory) = "" Then MkDir sDir End If 'Задаём название отчёта sReportName = Forms![Расходная]![ПолеСоСписком0] 'Папка sFolderName = sDir + s 'Задаём полное имя паки 'Задаём имя отчета sFileName = Replace(Trim([Forms]![Расходная]![Грузополучатель]), """", "") & "_" & sReportName & "_" & Format([Forms]![Расходная]![Дата_Накладной], "dd/mm/yyyy") & ".pdf" 'Проверка : If Dir(sFolderName, vbDirectory) = "" Then MkDir sFolderName If Right(sFolderName, 1) <> "\" Then sFolderName = sFolderName & "\" 'Полный путь к экспортируемому файлу ... sFilePath = sFolderName & sFileName 'Собственно Экспорт в PDF ... DoCmd.OpenReport "" & Me.ПолеСоСписком0 & "", acViewPreview DoCmd.OutputTo acOutputReport, sReportName, acFormatPDF, sFilePath, False Me.ПолеСоСписком0 = Null '"Опустошаем" значение списка отчетов (снимаем существующее выделение) Me.ПолеСоСписком0.Requery 'Обновляем список отчетов MsgBox "PDF Экспортирован: " & vbNewLine & sFilePath, vbInformation, "Report Exported as PDF" End Sub

https://www.sql.ru/forum/1316635/problema-s-peredachey-izobrazheniya-pri-eksporte-otcheta-v-pdf