Increasing Control's Height to Fit a Report

veruska

New member
Local time
Today, 09:50
Joined
Dec 5, 2005
Messages
5
I have a report that doesn't display the height of the controls the way I need
and I wonder if someone had the same problem before and was able to figure
out how to change the properties accordingly. One of the controls can increase to fit all the text but since the text of the remaining controls (in the same row) doesn't require it to increase, the appearance of the report isn't quite correct. I'm unable to instruct Access to increase all the controls to force a unique record to be of the same height.
I'm attaching a PDF file of a Page 1 which is perfect because all records fit and a page 3 to illustrate the problem.
If anybody can help me, I will really appreciate it.
Tks/Vera :(
View attachment Price List Page 1.pdf
View attachment Price List Page 3.pdf
 
Set the borders of the textbox to none and use the following code

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim CtlDetail As Control
Dim intLineMargin As Integer


intLineMargin = 60


For Each CtlDetail In Me.Section(acDetail).Controls
With CtlDetail

Me.Line ((.left + .Width + intLineMargin), 0)-(.left + .Width + _
intLineMargin, Me.Height)

End With
Next
With Me
Me.Line (0, 0)-Step(.Width, .Height), 0, B
End With

Set CtlDetail = Nothing

End Sub
 
Tks a billion! Will try that, although it is a little too much complicated at a first glance :>)
 

Users who are viewing this thread

Back
Top Bottom