Не дождался я примера от Темного. А надеялся увидеть что-то новенькое, т.к. Гетс у меня есть ("Access 2000" 2 тома), но об этом ничего не нашел.

По событию Print раздела св-во Height поля возвращает реальную высоту, но высоту других полей в этот момент изменить нельзя, поэтому рамки у полей надо убрать и рисовать их методом LINE отчета, например:

Me.DrawWidth = 8
With Me.TextBox1
Me.Line (.Left, .Top)- (.Left + .Width, .Top + .Height), , B
End With
Здесь рисуется рамка толщиной 8 пикселов. (для разрешения в 600 dpi - 1 пункт).

Но у метода LINE есть ряд подводных камней.
1. Толщина линии (св-во DrawWidth) указывается в пикселах. Для разрешения в 600 dpi при 8 пикселах толщина линии - 1 пункт, для 300 dpi - 2 пункта, а на матричном - и того больше. Поэтому толщину нужно корректировать с учетом текущего разрешения, которое можно (не без труда) извлечь из св-ва PrtDevMode, c помощью API функций, или, например, так:

Dim dpiX As Long
Me.ScaleMode = 3 'Pixels
dpiX = Me.ScaleWidth
Me.ScaleMode = 5 'Inch
dpiX = dpiX / Me.ScaleWidth
Me.ScaleMode = 1 'Twips
MsgBox "dpiX = " & dpiX

Толщина линии указывается так:
Me.DrawWidth = 8 * dpiX / 600
Здесь 600, это разрешение принтера, использованного при создании отчета.

По умолчанию DrawWidth = 1, и если вы не меняете его, то этой коррекцией можно пренебречь.

2. Высота раздела, к сожалению, не меняется. Если она равна высоте поля, то нет проблем. Иначе, что бы получить красивую таблицу без разрывов, нужно вычислять ее. Например, запомнить исходную высоту поля, а по событию Print учесть разницу между реальной и исходной высотой поля.
Можно и по другому. Рисовать вертикальные линии с большим запасом по длине (лишнее не нарисуется), а горизонтальную - только верхнюю, например:
Me.Line (0, 0)-(Me.Width, 0)

Может у кого-нибудь есть примеры получше? Не стесняйтесь.
Help по этим (и подобным) свойствам и методам очень куцый, и в литературе почти ничего нет. Приходится идти методом проб и ошибок.