Expand the height of a rectangle in a report

[IT]

hello,

In one of my reports i have a couple of text boxes where the size can grow.
I wish to place a rectangle around these two text boxes. Is it possible to
expand the height of the rectangle in accordance with the height of the two
text boxes. I am sure i could do this in VBA but is there another way. I am
using Access 2003

Cheers

 

[Arvin Meyer]

hello,

In one of my reports i have a couple of text boxes where the size can grow.
I wish to place a rectangle around these two text boxes. Is it possible to
expand the height of the rectangle in accordance with the height of the two
text boxes. I am sure i could do this in VBA but is there another way. I am
using Access 2003

The last time I had to do something like that in a report, (quite a few
tyears ago in Access 97) I built another textbox that concatented the text
from the first 2 textboxes. I then placed it behind the other textboxes and
set the text color to be white. As either of the original textboxes
expanded, the new one did also. Its border was black so it appeared as an
expanding rectangle.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

 

[Ken Snell]

The last time I had to do something like that in a report, (quite a few
tyears ago in Access 97) I built another textbox that concatented the text
from the first 2 textboxes. I then placed it behind the other textboxes and
set the text color to be white. As either of the original textboxes
expanded, the new one did also. Its border was black so it appeared as an
expanding rectangle.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

Inventive, Arvin! Neat trick!

 

[DP]

(I forgot the documentation on this so I hope it is
obvious!) It draws variable length vertical lines at the
locations (inches)shown.

' Access: Prints variable length line.

Private Sub Detail_Print(Cancel As Integer, PrintCount As
Integer)

Dim x1 As Single, y1 As Single
Dim x2 As Single, y2 As Single
Dim Color As Long

Me.ScaleMode = 5
y1 = 0
y2 = 22
Me.DrawWidth = 3

Color = RGB(0, 0, 0)

x1 = 1 ' line starts 1" from left margin
x2 = x1
Me.Line (x1, y1)-(x2, y2), Color

x1 = 3.3 ' @ 3.3" etc.
x2 = x1
Me.Line (x1, y1)-(x2, y2), Color

x1 = 7
x2 = x1
Me.Line (x1, y1)-(x2, y2), Color

x1 = 0.2917
x2 = x1
Me.Line (x1, y1)-(x2, y2), Color

End Sub