Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Проблема с передачей изображения при экспорте отчета в pdf  [new]
Geha
Member

Откуда:
Сообщений: 60
Всем добрый день.
Наткнулся на проблему при выгрузке отчета в 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

4 сен 19, 10:02    [21963025]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с передачей изображения при экспорте отчета в pdf  [new]
Владимир Найденов
Member

Откуда:
Сообщений: 19
Geha,
Будьте добры, покажите Ваш код
У меня нет вопросов со встроенными изображениями.. Вот уж 40 лет...
4 сен 19, 23:00    [21964038]     Ответить | Цитировать Сообщить модератору
 Re: Проблема с передачей изображения при экспорте отчета в pdf  [new]
Geha
Member

Откуда:
Сообщений: 60
Владимир Найденов,

Код под сполером в сообщении выше.
5 сен 19, 08:41    [21964182]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить