Post Author: ftpaxa
CA Forum: Other
I use a SQL server DataBase on Windows server 2003 with service pack 2. i use Crystal Report 10 with ODBC connection. I read that the nice DLL is "Crdb_odbc.dll".I saw a VB code "How to format a text object" on this site :http://technicalsupport.businessobjects.com/KanisaSupportSite/search.do?cmd=displayKC&docType=kc&externalId=crxiTechrefenpdf&sliceId=&dialogID=7686352&stateId=1%200%207680692--
' Create a new instance of the report.Dim oReport As New CrystalReport1Private Sub Form_Load()' Declare a TextObject object.Dim oTextObject As CRAXDRT.TextObject' Declare a generic Object.Dim oObject As Object' Declare a Section object.Dim oSection As CRAXDRT.Section' This variable is set to true once the' text object is found.Dim bText As BooleanbText = False' Search for all the report objects in each section.For Each oSection In oReport.SectionsFor Each oObject In oSection.ReportObjects' Find the first text object.If oObject.Kind = crTextObject Then' Get the text object and exit the loop.Set oTextObject = oObjectbText = TrueExit ForEnd IfNext oObjectIf bText Then Exit ForNext oSection' Format the text object and change the text.With oTextObject.BackColor = vbYellow.BorderColor = vbRed.BottomLineStyle = crLSDoubleLine.CanGrow = True.CharacterSpacing = 125.CloseAtPageBreak = True.FirstLineIndent = 25.Font.Italic = True.Font.Bold = True.Font.Size = 14.HasDropShadow = True.Height = 900.HorAlignment = crLeftAlign.KeepTogether = True.Left = 200.LeftIndent = 750.LeftLineStyle = crLSDashLine.MaxNumberOfLines = 16.RightIndent = 250.RightLineStyle = crLSDotLine.Suppress = False.SuppressIfDuplicated = True.SetText "Hello World".TextColor = vbBlue.TextRotationAngle = crRotate0.Top = 25.TopLineStyle = crLSSingleLine.Width = 3000End With' Set the report source of the viewer and view the report.CRViewer1.ReportSource = oReportCRViewer1.ViewReportEnd Sub
So, i would like to do the same thingswith winbatch language. I tried this code :
;Get CrystalRuntime Application Object HandleobjCra = ObjectCreate("CrystalRuntime.Application");Logs on to on or more SQL servers or ODBC data sources.objCra.LogOnServer("Crdb_odbc.dll","Magic","xxx","xx","zzzz") ; ("DLL file", "Server", "dbname", "username", "password"); open the saved reportobjReport = objCra.OpenReport("C:\Download\Perso\Programmation\Winbatch\Crystal Report\Final\rapport exploitation - abend.rpt")objReport.DiscardSavedData()TxtObj = objReport.Sections("PHb").ReportObjects("Text11")txtObj.Text = "testing" ; *** Error on this line : 1266: Ole:Bad Param Count;Export htmlPathHTML = strcat("C:\Download\Perso\Programmation\Winbatch\Crystal Report\Final\Resultat\rapport exploitation -
abend.htm")hfile = PathHTMLcre = crr.ExportOptionscre.DestinationType = 1 ; diskfilecre.FormatType = 32 ; 24 = (HTML 3.2 standard), 31 = (PDF), 32 = (HTML4.0) cre.HTMLFileName = hfilecrr.Export(BOOL:@false)objectclose(cre)objectclose(objReport)objectclose(objCra)exit
--
Everythings work good except this linetxtObj.Text = "testing" I receive this error :1266: Ole:Bad Param CountI may be don't have the nice recipe. If you have a solution, it is welcome.