125 / 95 / 33
Регистрация: 28.02.2017
Сообщений: 452
1

Передача картинки при экспорте отчета в pdf

03.09.2019, 12:37. Показов 931. Ответов 1
Метки нет (Все метки)

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.09.2019, 12:37
Ответы с готовыми решениями:

Указать папку при экспорте отчета
Добрый день, подскажите пожалуйста как указать папку для сохранения отчета при экспорте в pdf. ...

При экспорте в PDF выводит файл на печать с ошибкой
На винде работает без проблем. На маке если делать вручную - работает тоже, но макросом выдает эту...

Как задать имя файла при экспорте отчета в word?
Привет всем. У меня в базе есть отчет, который формируется для каждого сотрудника. Как задать имя...

При экспорте отчета в Word первая запись добавляется в строку с заголовками
Всем привет образовалась проблема, при экспорте данных из dbgrid в ворд, первая запись добавляется...

1
0 / 0 / 0
Регистрация: 01.05.2018
Сообщений: 1
22.09.2019, 16:42 2
Добрый день.
Сталкивался с аналогичной проблемой в свое время. Решил ее, указав у контейнеров (объектов "рисунок") значение свойства "установка размеров"="фрагмент" и подогнав фактический размер отображаемого рисунка (длина, ширина) точно под размер контейнера в пикселях.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.09.2019, 16:42

При экспорте данных в pdf формате пишет: Убедитесь что объект существует и его имя не содержит ошибок?
Как исправить при экспорте данных в pdf формате пишет: Убедитесь что объект существует и его имя не...

При экспорте кода в PDF русский текст заменяется на знак "?"
Здравствуйте. Семинарист сказал сдавать ему проги в печатном виде (сказал он, а стыдно мне). Код...

Изменение имени файла при выгрузке отчета access 2010 в PDF
Добрый вечер! очень нужно сформированный отчет выгрузить в PDF фаил с указанием в имени дату или...

Ошибка при открытии формы, картинки и вывода отчета в exel
Добрый вечер, при нажатии Run перед открытием формы всплывает окно с ошибкой(1й скрин) При выборе...

Как в экспорте отчета через VBA в название файла вставить КодОтчета?
Здравствуйте, подскажите пожалуйста Как в экспорт отчета через процедуры VBA -&gt; вставить , что...

Экспорт отчета в PDF
Есть отчет содержащий подчиненный отчет. Первый содержит поле год, по которому группируется записи...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.