Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Зеркальные поля в отчёте / 8 сообщений из 8, страница 1 из 1
14.03.2009, 12:52
    #35869137
Dimos9
Dimos9
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Зеркальные поля в отчёте
Всем привет !!!
Таким кодом создаю зеркальные поля в отчёте.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
   Dim ctl As Control
   If (Me.Page Mod  2  =  0 ) Then 'odd page
      For Each ctl In Me.Controls
         With ctl
            .Left = .Left +  1440  'move all to the left on 1 inch
         End With
      Next
   Else
      For Each ctl In Me.Controls
         With ctl
            .Left = .Left -  1440  'move all to the right on 1 inch
         End With
      Next
   End If
End Sub
В результате все происходит нормально кроме поведения нижнего колинтула, который сдвигается в противоположную сторону. Например на 1 странице левое поле 2.5см а у нижнего колинтула правое поле 2.5см. И так дальше на всех страницах нижнийо колинтулл сдвигается в противоположную сторону.
Что надо поправить ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.03.2009, 13:52
    #35869188
непоймучка
непоймучка
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Зеркальные поля в отчёте
Dimos9Всем привет !!!
Таким кодом создаю зеркальные поля в отчёте.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
   Dim ctl As Control
   If (Me.Page Mod  2  =  0 ) Then 'odd page
      For Each ctl In Me.Controls
         With ctl
            .Left = .Left +  1440  'move all to the left on 1 inch
         End With
      Next
   Else
      For Each ctl In Me.Controls
         With ctl
            .Left = .Left -  1440  'move all to the right on 1 inch
         End With
      Next
   End If
End Sub
В результате все происходит нормально кроме поведения нижнего колинтула, который сдвигается в противоположную сторону. Например на 1 странице левое поле 2.5см а у нижнего колинтула правое поле 2.5см. И так дальше на всех страницах нижнийо колинтулл сдвигается в противоположную сторону.
Что надо поправить ?Замечу, что приведенным кодом вы сдвигаете в сторону, ПРОТИВОПОЛОЖНУЮ тем комментариям, которые у вас там написанывот это:.Left = .Left + 1440 'move all to the left on 1 inchэто НЕ move to the LEFT, это как раз move to the RIGHT. И аналогично во второй строке.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.03.2009, 14:55
    #35869246
Dimos9
Dimos9
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Зеркальные поля в отчёте
непоймучка,

Согласен, теперь сделал так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
   Dim ctl As Control
   If (Me.Page Mod  2  =  0 ) Then 'odd page
      For Each ctl In Me.Controls
         With ctl
            .Left = .Left -  1440  'move all to the left on 1 inch
         End With
      Next
   Else 'even page
      For Each ctl In Me.Controls
         With ctl
            .Left = .Left +  1440  'move all to the right on 1 inch
         End With
      Next
   End If
End Sub
ничего не изменилось. В атаче пример
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.03.2009, 18:28
    #35869394
непоймучка
непоймучка
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Зеркальные поля в отчёте
посмотрите
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.03.2009, 21:33
    #35869516
Dimos9
Dimos9
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Зеркальные поля в отчёте
непоймучка,

Ничего не скажешь красиво !!!

Большое спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
13.02.2018, 14:40
    #39601162
Gurd77
Gurd77
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Зеркальные поля в отчёте
Ввожу код и выдает ошибку "элемент управления или подчиненная форма не могут быть размещены в указанном месте" как решить проблему.
Заранее спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2018, 15:00
    #39601193
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Зеркальные поля в отчёте
Gurd77Ввожу код и выдает ошибку "элемент управления или подчиненная форма не могут быть размещены в указанном месте" Вероятно ширина отчета слишком мала, чтоб перемещаемый элемент вместился. Проверьте, на каком элементе возникает ошибка. Возможно это горизонтальная линия на всю ширину отчета, которую двигать не надо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2018, 16:15
    #39601271
Gurd77
Gurd77
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Зеркальные поля в отчёте
Анатолий ( Киев ), посмотрел в режиме макета все вроде умещается((((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Зеркальные поля в отчёте / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 179ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1611698]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 73ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 2ms
others: 16ms
total:  179ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]