A97 and report RTF2 Llebans

[A.C.]

I use the RTF2 Lebans in the form is OK, but in report whit Access 97 is
very big problem.
The source code post in the example by leban's website don't work with A97,
because it don't support the set of detail section.
How is possible make report with more page with A97 ?

Than you
alessandro

 

[Stephen Lebans]

Technically you cannot. This is explained, along with a partial possible
solution for A97 here:
http://www.fmsinc.com/faqs/tamemo.htm#2000GrowShrink

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.

 

[A.C.]

Ok. i have make an example with the same table and the same code-report, one
with fms and one with RTF2.
With Fms is Ok, RTF2 no. I debud code, the problem is that the prop.
heightoftext return 60960 (the max of multipage for the record select) and
rtf2 -6016. This because, i think, the RTF2Height is integer and not long.
If this right, is possible change ocx prop?

thank you
alessandro

 

[Stephen Lebans]

The property is typed as Integer because 32K is the max value you can apply
to a TextBox or Section Height property.

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.

 

[A.C.]

The height of text depend of image, font, fontsize ecc, (also only text can
be big then 32k) then is possible have memofield big then 32k and RTF2 prop.
height return a negative value. So, if change the prop. return a break.
I found a solution change the sample mdb RTF00_1_5_97 in the web page (with
big memo break).
So, post the code:

Private Sub Detail1_Format(Cancel As Integer, FormatCount As Integer)
' 1440 twips x 22 inch =31680
Const MAXsizeheight = 31680

Dim intHeight As Integer
Dim strText As String

' Check for the text in the control
strText = Me.tamDembject.PlainText
If Trim(strText) = "" Then
Me.ctlrtf.Height = 0
Else

' Retrieve height
intHeight = Me!ctlrtf.RTFheight
If intHeight < 0 Then
intHeight = MAXsizeheight
End If


If Me!ctlrtf.Top + intHeight > MAXsizeheight Then
intHeight = MAXsizeheight - Me!ctlrtf.Top
End If


Me!ctlrtf.Height = intHeight
End If
end sub

Now, it don't break. The only problem print only 2 page and half. Is there a
solution ?