Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Отчёт 
V
    Опции темы
kapbepucm
Дата 2.8.2007, 10:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: нет
Всего: 12
Как лучше всего сделать? Отчёт состоит из большого количества страниц (обычная таблица). Надо сделать неодинаковый пустой заголовок каждой странице (просто отступ от верхнего края листа, наверно, высота PageHeader). Но если номер страницы нечётный он должен быть n см, а если чётный m см.


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
belousov
Дата 2.8.2007, 10:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 317
Регистрация: 21.11.2006
Где: Москва

Репутация: нет
Всего: 6
kapbepucm, ну там через BAsic можно этого добиться в полне, пишешь условие так и так


--------------------
NIHIL VERUM EST LICET OMNIA 
PM MAIL WWW ICQ Skype   Вверх
Akina
Дата 2.8.2007, 13:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454
Код

Private Sub Report_Page()
    If (Me.Page MOD 2) Then
        '....
    Else
        '....
    End If
End Sub



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
bopoha
Дата 2.8.2007, 21:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21
Я бы использовал событие форматирования колонтитула и изменял бы его высоту:

Код

Private Sub ВерхнийКолонтитул_Format(Cancel As Integer, FormatCount As Integer)
...
    Me.Section(acPageHeader).Height = ...
...
End Sub




--------------------
Как создавать приложения на MS Access
PM MAIL WWW ICQ Skype GTalk   Вверх
kapbepucm
Дата 3.8.2007, 08:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: нет
Всего: 12
Ок, так и сделал:
Код
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
 If (Me.Page Mod 2) Then Me.Section(acPageHeader).Height = M Else Me.Section(acPageHeader).Height = N
End Sub



--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "MS Access"
Akina
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] и [code=sql][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Access | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0461 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.