Font not changing after a CR in a text box

Question

I have some vb.net code that fills in a report, including text boxes. Some of the text boxes are used like a header and have a fixed size. When the desired text is entered, sometimes there will be a character indicating a carriage return/line feed goes in that spot to make the text more readable, and is replaced when found.  This works fine.
What does not work is after the text is set up, the user can change the font. The code then goes through all the objects on the report and changes the font. The problem is that when it tries to change the font on the text boxes where the CRLF is, the font change is applied up to the CRLF, but is not applied to the text after it. I end up with mixed fonts in a text box.
Is there a special character or method to get the font to be applied correctly? I have tried all combinations (chr(10), chr(13, chr(10) & chr(13), etc) but so far nothing has worked.
Here is the code I am using to apply the font change:
Dim objText As ReportAppServer.ReportDefModel.TextObject = CType rcd.ReportDefController.ReportObjectController.GetAllReportObjects().Item(obj.Name), CrystalDecisions.ReportAppServer.ReportDefModel.TextObject)
objText.FontColor.Font.Name = myFont.Name
If myFont.SizeAdjustment <> 0 Then objText.FontColor.Font.Size += myFont.SizeAdjustment
rcd.ReportDefController.ReportObjectController.Modify(CType rcd.ReportDefController.ReportObjectController.GetAllReportObjects().Item(obj.Name), CrystalDecisions.ReportAppServer.ReportDefModel.TextObject), objText)
One more note - this appears to work fine for formula fields. I just can't seem to get it to work for text objects. I have many reports and I would prefer not to change them all to formulas.
Edited by: cotsjadixon on Oct 27, 2011 9:32 AM

Answer 1

I am new to crystal report objects (I inherited the code I am working with), so I need a bit of help. I tried the following code:
              Dim objText As ReportAppServer.ReportDefModel.TextObject = CType(rcd.ReportDefController.ReportObjectController.GetAllReportObjects().Item(obj.Name), CrystalDecisions.ReportAppServer.ReportDefModel.TextObject)
              For Each pobj As ReportAppServer.ReportDefModel.Paragraph In objText.Paragraphs
                pobj.FontColor.Font.Name = myFont.Name
                If myFont.SizeAdjustment <> 0 Then pobj.FontColor.Font.Size += myFont.SizeAdjustment
                rcd.ReportDefController.ReportObjectController.Modify(CType(rcd.ReportDefController.ReportObjectController.GetAllReportObjects().Item(pobj.Name), CrystalDecisions.ReportAppServer.ReportDefModel.Paragraph), pobj)
              Next
but I get the following error: Public member 'Name' on type 'ISCRParagraph' not found. I am having trouble finding where the proper paragraphs collection is.
What am I doing wrong?