гороскоп на сегодня у скорпиона любовный гороскоп совместимости любовный гороскоп на 2017 рак девушка подробнее на этой странице нажмите чтобы увидеть больше ссылка на подробности любовный гороскоп гороскоп совместимости совместимость знаков в любви любовный гороскоп любовный гороскоп гороскоп совместимости парень козерог девушка весы гороскоп совместимость гороскоп на месяц любовный рак гороскоп на след неделю девы любовный гороскоп женщина рыба мужчина весы совместимость гороскоп совместимости он телец она овен совместимость любовный увидеть больше гороскоп дева любовный на сегодня и завтра гороскоп основываясь на этих данных на этой странице гороскоп на совместимость телец и рыбы рак гороскоп весы стрелец совместимость на 2017 год гороскоп ссылка сегодня гороскоп совместимость по гороскопу женщина телец мужчина рак совместимость гороскоп секс гороскоп совместимости читать больше гороскоп любовный на сегодня козерогу гороскоп любовный на завтра для стрельца гороскоп любовный на месяц рыбы женщина совместимость гороскопа лев и овен нажмите для продолжения любовный гороскоп двух львов гороскоп неделю гороскоп стрелец женщина и весы мужчина совместимость в браке гороскоп совместимости весы жен овен муж подробнее на этой странице сексуальный гороскоп близнецы женщин гороскоп совместимости она водолей он телец основываясь на этих данных совместимость по гороскопу близнецы скорпион гороскоп совместимости рак и козерог на 2017 гороскоп козы на 2017 любовный гороскоп на завтра лев любовный женщина одинокая перейти увидеть больше совместимость по гороскопу рыба и дева гороскоп женщины любовный гороскоп скорпиона на 2017 год мужчина гороскоп пифагора совместимости знаков зодиака привожу ссылку любовный гороскоп на рыб сегодня по ссылке гороскоп таблица совместимости по годам сексуальный гороскоп водолея и овна любовный гороскоп на месяц для овнов гороскоп совместимости рыбы женщина и рак мужчина совместимость нажмите чтобы увидеть больше гороскоп совместимости по луне и солнцу вот ссылка гороскоп на совместимость женщина телец любовный гороскоп на месяц весы 2017 гороскоп дева телец совместимость совместимость гороскопов лев скорпион посетить страницу гороскоп совместимости знаков зодиаков таблица фото гороскоп совместимости рыба тигр любовный гороскоп женщина козерог 2017 любовный гороскоп козерог на сегодня женщина любовный гороскоп для девы на сегодня и завтра гороскоп стрелец на завтра женщина любовный составить любовный любовный гороскоп водолей на 2017 гороскоп совместимости по знакам зодиака овен и водолей

Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: час
Вопрос: Рисyем pамки:

Совет:
Из кода рисуются только вертикальные линии. горизонтальные нарисованы заранее.
Расположение линий определяется по вертикальным линиям например в ВерхнийКолонтитуле

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\


В модуле отчета

Option Compare Database
Option Explicit

Dim vlineData(30) As String

Private Sub Report_Open(Cancel As Integer)
'Заполняем при открытии отчета массив зарание расположенными элементами (именами)
'В данном случае имена линий
'Последний элемент должен быть пустой строкой ""
    vlineData(0) = "Линия13"
    vlineData(1) = "Линия14"
    vlineData(2) = "Линия15"
    vlineData(3) = "Линия16"
    vlineData(4) = "Линия17"
    vlineData(5) = ""
End Sub

Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
'Вызываем функцию без ограничения высоты линий
    Call DrawVertLines(Me, vlineData)
End Sub

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

В отдельном модуле

Option Compare Database
Option Explicit


'Фукция DrawVertLines. Рисование вертикальных линий в отчете.
'rep - указатель на отчет
'vlineData массив имен элементов из отчета (например имена линий разделяющих заголовки столбцов столбцы)
'последний элемент должен быть пустой строкой
'TopCtrl и BottomCtrl - имена элементов из отчета для ограничения линий по высоте (если эти аргументы пропущены,
'то высота линий будет равна высоте раздела отчета при форматировании которого применяется данная функция)
Public Function DrawVertLines(rep As Report, vlineData() As String, Optional TopCtrl As String = "", Optional BottomCtrl As String = "")
    Dim i As Long
    Dim x1 As Long
    Dim y1 As Long
    Dim x2 As Long
    Dim y2 As Long
    On Error Resume Next
    If Len(TopCtrl) <> 0 Then
        y1 = rep.Controls(TopCtrl).Top
    Else
        y1 = 0
    End If
    
    If Len(BottomCtrl) <> 0 Then
        y2 = rep.Controls(BottomCtrl).Top
    Else
        y2 = 10000
    End If
    
    For i = 0 To 30
        If Len(vlineData(i)) > 0 Then
            x1 = rep.Controls(vlineData(i)).Left
            x2 = x1
            rep.Line (x1, y1)-(x2, y2), 0
        Else
            Exit For
        End If
    Next i
End Function


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.