Ashfaque
Search Beautiful Girls from your town for night
- Local time
- Today, 18:03
- Joined
- Sep 6, 2004
- Messages
- 897
Hi,
I wish to set up up and down alignment of data in report that based on it length of characters.
Example: if the text box placed in details section of report that has 11 cm width and Height 2 cm to let 2-3 lines appear.
When the data length is less than particular number (let us say 70) then it should appear in left mid of the text box which has same space at up and down. If the length of characters are greater than 70...(let us say around 130 so it should appear in 2 lines adjusting top and bottom part of text box.
I hope I explained properly. At present, If there are less than 70 character in field it is appearing at top of text box. Please see pic. If see the first 1 & 2 data line, they are adjusted because character length is > 70. But at 3 to 7....all text line is appeared on top of text box which I want it to be in middle.
To make this happen, I wrote few line on Load event of report but doesn't work out.
Private Sub Report_Load()
Dim x As String
x = Len(Me.AuthDesc1)
If x > 70 Then
Format (Me.AuthDesc1.TopMargin = 0.25)
Else
x = ""
End If
End Sub
Can someone advise on this issue?
Thanks,
Ashfaque
I wish to set up up and down alignment of data in report that based on it length of characters.
Example: if the text box placed in details section of report that has 11 cm width and Height 2 cm to let 2-3 lines appear.
When the data length is less than particular number (let us say 70) then it should appear in left mid of the text box which has same space at up and down. If the length of characters are greater than 70...(let us say around 130 so it should appear in 2 lines adjusting top and bottom part of text box.
I hope I explained properly. At present, If there are less than 70 character in field it is appearing at top of text box. Please see pic. If see the first 1 & 2 data line, they are adjusted because character length is > 70. But at 3 to 7....all text line is appeared on top of text box which I want it to be in middle.
To make this happen, I wrote few line on Load event of report but doesn't work out.
Private Sub Report_Load()
Dim x As String
x = Len(Me.AuthDesc1)
If x > 70 Then
Format (Me.AuthDesc1.TopMargin = 0.25)
Else
x = ""
End If
End Sub
Can someone advise on this issue?
Thanks,
Ashfaque