Как программно обновить из Excel отчет Crystal Reports? / Microsoft Office

ReSQL.ru

2.0.58

Полная версия Контакт Правила FAQ Помощь

Гость

Войти | Профиль | Очистить

Нов. | Гор. | Избр.

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как программно обновить из Excel отчет Crystal Reports? / 1 сообщений из 1, страница 1 из 1

11.03.2014, 10:06

#38582725

грязный комплектовщик

Гость

Как программно обновить из Excel отчет Crystal Reports?

Коллеги, может кто сталкивался с такой траблой.
Есть отчет Crystal Reports с параметрами, кот-й я вставляю в UserForm в Экселе.
Отчет загружается, но без вызова параметров - параметры и обновление случаются только при ручном нажатии кнопки обновить на компоненте формы CrystalActiveXReportViewer1.
Хотелось бы сразу параметры вводить.
Excel 2003, Crystal Reports XI
ЗЫ Вроде что-то нагуглил по сабжу, но антивирус AVAST сайт блокирует
ЗЗЫ
Код взял отсюда:
http://askit.ru/custom/crystal11/m16/lab16_01_rdc_vba.htm

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

'Открываем отчет для показа
Dim crapp As New CRAXDRT.Application
Dim CrReport As CRAXDRT.Report
Set CrReport = crapp.OpenReport(sFileName)
'Настраиваем параметры просмотрщика и показываем отчет
With CrystalActiveXReportViewer1

.ReportSource = CrReport
.EnableExportButton = True
.EnablePrintButton = True
.EnableRefreshButton = True
.EnableSelectExpertButton = True
.ViewReport
'.Refresh
End With

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&tablet=1&tid=2174185]:	0ms
get settings:	9ms
get forum list:	12ms
check forum access:	4ms
check topic access:	4ms
track hit:	62ms
get topic data:	12ms
get forum data:	3ms
get page messages:	32ms
get tp. blocked users:	2ms
others:	13ms

total:	153ms