Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

27th
Май

Рамки для страниц отчетов

Posted by obzor under VBA

Как организовать вывод рамок по краям каждой из станиц отчета?

Для создания рамок вокруг отчетов (border for report) необходимо в Событии «Страница» (см. свойства самого Отчета) прописать код

Код:

Private Sub Report_Page()
    		On Error Resume Next
		
        	'Set Thickness and Border Style
         
        	'Larger Number creates Thicker Line / Ширина линии в пикселях
        	Me.DrawWidth = 37
        	'Values 0 to 6 = Solid Line to Invisible / Тип линии 
        	Me.DrawStyle = 0
		
	 	'Координаты в пикселях!
		'Точка отсчета координат - верхний левый угол
        	'Object.Line (x1, y1) - (x2,y2), color, [Box=B]
        	Me.Line (10, 10)-(Me.ScaleWidth - 10, Me.ScaleHeight - 260), vbBlack, B
                'Сдвиги в 10 пикс требовались для нормального отображения толстой линии. Т.к. при 
                'отрисовки линии на самой границе отчета, часть самой линии выходила за границу и 
                'некорректно отрисовывался вес данной линии

	End Sub