By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
435,192 Members | 1,276 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 435,192 IT Pros & Developers. It's quick & easy.

Steve Leban's RTF2 control & printing

P: n/a
I downloaded Steve Leban's RTF2 control and it shows me the report as
wanted.

The Problem is, if i want to print it, it comes a PopUp where it says
"properties write protected" (german: "Eigenschaft ist schreibgeschützt")
and then i have to complete kill access to continue, unfortunately the
report wasnt printed.

Thats the code for the "format" of the RTFControl2 of the report which
is -IMHO- producing the malfunction. Is it maybe the name "RTFControl2"?

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
Dim Height As Integer
Me.RTFControl2.Object.RTFtext = ""
Me.RTFControl2.Object.RTFtext = Me.RTFParagraph
Me.RTFControl2.Requery
Height = Me.RTFControl2.Object.RTFheight
If Height 0 Then
If Height < 32000 Then
Me.RTFControl2.Height = Height
End If
End If
Me.Section(acDetail).Height = Me.RTFControl2.Height + Me.RTFControl2.Top

If Me.RTFControl2.Object.RTFheight 0 Then
If Me.RTFControl2.Object.RTFheight < 32000 Then
Me.RTFControl2.Height = Me.RTFControl2.Object.RTFheight
End If
End If

Me.RTFControl2.RTFtext = Me.RTFControl2.RTFtext
End Sub

Whats wrong with that :) or with me ;) ...

Please tell me if you need further information! Thanks!
Mar 21 '07 #1
Share this Question
Share on Google+
2 Replies


P: n/a
WHy did you change the sample code found in the MDB you downloaded? You
don't call the Access parent control's Requery method.

Why don't you simply bind the RTF2 control to your field/control named
Me.RTFParagraph instead of setting the RTFText property programmatically at
run time?

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Pascal Hagedorn" <da**************@web.dewrote in message
news:et**********@news.uni-kl.de...
>I downloaded Steve Leban's RTF2 control and it shows me the report as
wanted.

The Problem is, if i want to print it, it comes a PopUp where it says
"properties write protected" (german: "Eigenschaft ist schreibgeschützt")
and then i have to complete kill access to continue, unfortunately the
report wasnt printed.

Thats the code for the "format" of the RTFControl2 of the report which
is -IMHO- producing the malfunction. Is it maybe the name "RTFControl2"?

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As
Integer)
Dim Height As Integer
Me.RTFControl2.Object.RTFtext = ""
Me.RTFControl2.Object.RTFtext = Me.RTFParagraph
Me.RTFControl2.Requery
Height = Me.RTFControl2.Object.RTFheight
If Height 0 Then
If Height < 32000 Then
Me.RTFControl2.Height = Height
End If
End If
Me.Section(acDetail).Height = Me.RTFControl2.Height +
Me.RTFControl2.Top

If Me.RTFControl2.Object.RTFheight 0 Then
If Me.RTFControl2.Object.RTFheight < 32000 Then
Me.RTFControl2.Height = Me.RTFControl2.Object.RTFheight
End If
End If

Me.RTFControl2.RTFtext = Me.RTFControl2.RTFtext
End Sub

Whats wrong with that :) or with me ;) ...

Please tell me if you need further information! Thanks!

Mar 21 '07 #2

P: n/a
Thanks it worked out :) Sometimes you just need an objective observer %-)

"Stephen Lebans" <ForEmailGotoMy.WebSite.-WWWdotlebansdot...@linvalid.com>
schrieb im Newsbeitrag
news:os********************@ursa-nb00s0.nbnet.nb.ca...
WHy did you change the sample code found in the MDB you downloaded? You
don't call the Access parent control's Requery method.

Why don't you simply bind the RTF2 control to your field/control named
Me.RTFParagraph instead of setting the RTFText property programmatically
at run time?

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Pascal Hagedorn" <da**************@web.dewrote in message
news:et**********@news.uni-kl.de...
>>I downloaded Steve Leban's RTF2 control and it shows me the report as
wanted.

The Problem is, if i want to print it, it comes a PopUp where it says
"properties write protected" (german: "Eigenschaft ist schreibgeschützt")
and then i have to complete kill access to continue, unfortunately the
report wasnt printed.

Thats the code for the "format" of the RTFControl2 of the report which
is -IMHO- producing the malfunction. Is it maybe the name "RTFControl2"?

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As
Integer)
Dim Height As Integer
Me.RTFControl2.Object.RTFtext = ""
Me.RTFControl2.Object.RTFtext = Me.RTFParagraph
Me.RTFControl2.Requery
Height = Me.RTFControl2.Object.RTFheight
If Height 0 Then
If Height < 32000 Then
Me.RTFControl2.Height = Height
End If
End If
Me.Section(acDetail).Height = Me.RTFControl2.Height +
Me.RTFControl2.Top

If Me.RTFControl2.Object.RTFheight 0 Then
If Me.RTFControl2.Object.RTFheight < 32000 Then
Me.RTFControl2.Height = Me.RTFControl2.Object.RTFheight
End If
End If

Me.RTFControl2.RTFtext = Me.RTFControl2.RTFtext
End Sub

Whats wrong with that :) or with me ;) ...

Please tell me if you need further information! Thanks!


Mar 27 '07 #3

This discussion thread is closed

Replies have been disabled for this discussion.