|
|
|
Проблема с передачей изображения при экспорте отчета в pdf
|
|||
|---|---|---|---|
|
#18+
Всем добрый день. Наткнулся на проблему при выгрузке отчета в 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.09.2019, 10:02 |
|
||
|
Проблема с передачей изображения при экспорте отчета в pdf
|
|||
|---|---|---|---|
|
#18+
Geha, Будьте добры, покажите Ваш код У меня нет вопросов со встроенными изображениями.. Вот уж 40 лет... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.09.2019, 23:00 |
|
||
|
|
start [/forum/topic.php?fid=45&msg=39857577&tid=1610497]: |
0ms |
get settings: |
8ms |
get forum list: |
13ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
43ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
42ms |
get tp. blocked users: |
2ms |
| others: | 311ms |
| total: | 442ms |
| 0 / 0 |
