Добавлено: Пт Май 25, 2012 8:45 am Заголовок сообщения: Re: Подписи к отчетам
Elesey писал(а):
Добрый день всем! Поскажите, Каким образом можно программно добавлять подписи в отчетах из Сервис - Настройка - Подписи к отчетам ?
Может Вам поможет это:
Sub Workarea_OnReportStart(Kind, KindID, RepKind, RepID, ByRef Lock)
...
If RepKind=100 Then
Lock = True
Set RW = Workarea.CreateReport("RepWizard")
With RW
.load(RepID)
.Kind = Kind
.KindId = KindID
.Build
Set SB = .makeSheet(True)
End With
...
Set Sh = sb.ActiveSheet
If Sh.Columns>2 Then
Sh.Range(Sh.Columns-2, 1, Sh.Columns, 1).MergeCells = True
sh.Cell(1,sh.Columns-2).value="ПPAT ""Горлівський м`ясокомбінат"""
End If
Добавлено: Пт Май 25, 2012 8:50 am Заголовок сообщения:
Да, забыл сказать - в вин7 другие пути реестра, да и для 7.0 надо будет соответственно подправить.
Естественно, что подпись меняется для всех баз и всех отчетов на данном конкретном компьютере (что, как по мне - не логично).
Добавлено: Пт Май 25, 2012 9:32 am Заголовок сообщения:
kris писал(а):
Естественно, что подпись меняется для всех баз и всех отчетов на данном конкретном компьютере (что, как по мне - не логично).
Мне это собсвенно и нужно: чтоб печать отчетов (из файлов .ash, .avb) с каждого рабочего места была с той подписью, которая забита в настройках конкр. машины.
Добавлено: Пт Май 25, 2012 9:37 am Заголовок сообщения:
Elesey писал(а):
Может есть какая-нибудь встроенная функция???
Насколько мне известно - нет. Можно попытаться разрулить методом, который указал Виктор, навесив на него параметры пользователя, которые будут обрабатываться при построении отчета.
Вот пример автоматического запуска отчета для отдельно взятого юзера:
Код:
' Запустим отчеты из автозагрузки
UserName = Workarea.DBUser
If CheckNull(Workarea.UserParam(UserName&"|Rep1Build"),0) > 0 Then _
Application.CreateBook "С.Ж.Корпоративные договора.Праздники.ash", False, "BuildInvisible"
Один недостаток - параметры юзеров не доступны в интерфейсе, я писал для них спец. диалог. Вот кусок:
Ну и... Собственно описанный метод работает для юзера, а не для машины. Вы можете переделать под наименование машины или вообще сделать для группы пользователей, если надо.
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах