S
Serge Olivier
Hi folks,
A report has several TextBox in the detail section. Among them, one can warp
on multiple lines. As I am using Solid Border on the controls to print each
"cells" Excel style, all the TextBox end up with different height and it
looks ugly...
I tried to rezise them in the Detail_Format event with no success. The
TextBox won't grow. Seem like the control has not been resized yet at this
time or it does not change the Height property even if it grows.
Here it is: txtDesc being the control that grows with the content.
All controls have CanGrow=True
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
Me.txtCostMisc.Height = Me.txtDesc.Height 'At time time, txtDesc should
have grown... isn't it?
Me.txtCostParts.Height = Me.txtDesc.Height
Me.txtHrePaint.Height = Me.txtDesc.Height
Me.txtHreRepair.Height = Me.txtDesc.Height
Me.txtQty.Height = Me.txtDesc.Height
End Sub
Thank for your advice.
Serge
A report has several TextBox in the detail section. Among them, one can warp
on multiple lines. As I am using Solid Border on the controls to print each
"cells" Excel style, all the TextBox end up with different height and it
looks ugly...
I tried to rezise them in the Detail_Format event with no success. The
TextBox won't grow. Seem like the control has not been resized yet at this
time or it does not change the Height property even if it grows.
Here it is: txtDesc being the control that grows with the content.
All controls have CanGrow=True
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
Me.txtCostMisc.Height = Me.txtDesc.Height 'At time time, txtDesc should
have grown... isn't it?
Me.txtCostParts.Height = Me.txtDesc.Height
Me.txtHrePaint.Height = Me.txtDesc.Height
Me.txtHreRepair.Height = Me.txtDesc.Height
Me.txtQty.Height = Me.txtDesc.Height
End Sub
Thank for your advice.
Serge