Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: ACCESS 2003 --> Report v PDF
 
 автор: bimon   (15.02.2013 в 14:21)   личное сообщение
 
 

Возможно ли в VBA конвертировать отчет ACCESS2003 в PDF формат и отправить по фикс-му адресу EMail или нужна более поздняя версия ACCESS? Спасибо

  Ответить  
 
 автор: osmor   (15.02.2013 в 14:45)   личное сообщение
 
 

есть варианты, от использования виртуального принтера до покупки Acrobat (не reader) или других сторонних библиотек

  Ответить  
 
 автор: bimon   (15.02.2013 в 20:14)   личное сообщение
 
 

Если Вы имеете ввиду под виртуальным принтером <Primo pdf>, то он установлен. Т.е вывод любого док-та в PDF формате возможен, но как это сделать по кнопке(VBA)?

  Ответить  
 
 автор: Дядя Федор   (18.02.2013 в 08:08)   личное сообщение
20 Кб.
 
 

На лебансе есть
Модуль выглядит (см.вложение.)
Нужные библиотеки и пример можно скачать http://www.lebans.com/reporttopdf.htm.
Проверено - работает.

  Ответить  
 
 автор: bimon   (18.02.2013 в 14:08)   личное сообщение
 
 

Спасибо за ссылку. Вникаю в содержание. Если будут неясности то спрошу. Один вопрос уже есть. <Snp> формат. В каких случаях в этом формате сохраняются файлы. На своем компе я ни одного файла Snp не нашел. Спасибо.

  Ответить  
 
 автор: bimon   (18.02.2013 в 23:54)   личное сообщение
 
 

Вопрос следующий. Я фильтрую вывод отчета не через underlying query а непосредственно в строке запуска :DoCmd.OpenReport docname, A_PREVIEW, , Filter , где Filter строка фильтрации. При выводе такого отчета в PDF (ConvertReportToPDF(docname, vbNullString, ...) фильтра нет и выводятся лишние записи. Я придумал установку фильтра до вызова процедуры конвертации : DoCmd.OpenReport docname, acViewDesign, , , acHidden
' Reports(docname).Filter = FilterString
' Reports(docname).FilterOn = True
' DoCmd.SetWarnings False
' DoCmd.Close acReport, docname
' DoCmd.SetWarnings True
Нельзя ли это сделать красивей (не трогая запрос)? Спасибо

  Ответить  
 
 автор: Йожык   (19.02.2013 в 10:27)   личное сообщение
 
 

Красиво? :))
docmd.OpenReport "Отчет", acViewPreview, FilterString

  Ответить  
 
 автор: Дядя Федор   (19.02.2013 в 08:30)   личное сообщение
 
 

snp - Это снимок. Снапшот.
у меня сохраняет с фильтрами.
посмотри мой модуль. ф-я reptopdf.Должно работать

  Ответить  
 
 автор: bimon   (19.02.2013 в 12:57)   личное сообщение
 
 

А где модуль? Не вижу вложения!

  Ответить  
 
 автор: Дядя Федор   (20.02.2013 в 08:05)   личное сообщение
 
 

5 топиков выше :)

  Ответить  
 
 автор: bimon   (20.02.2013 в 12:12)   личное сообщение
 
 

понял. Но какого-то модуля не хватает --> не находит функции FixPath, BrowseForFolderbyPath ...

  Ответить  
 
 автор: Дядя Федор   (20.02.2013 в 12:52)   личное сообщение
12 Кб.
 
 

Виноват. Лови. Но это функции для открытия папок-файлов.
Может в твоем случае они и не нужны.

Кстати всякие условия и фильтры можно запихнуть в запрос-источник отчета. Тогда не надо маяться с фильтрами.

  Ответить  
 
 автор: bimon   (20.02.2013 в 16:35)   личное сообщение
 
 

Спасибо. Много полезной информации. Буду разбирать.

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList