Hello All,
I am loading Cyrstal report rpt(9.0) data into PDF format.
But before laoding crystal report data to PDF I am using below code .
'Create a new ReportClientDocument object for this reportAppSession Set previewoClientDoc = previewrptAppSession.CreateService("CrystalClientDoc.ReportClientDocument")
'Open the report previewoClientDoc.Open previewReportName
'Logon to database, if necessary previewoClientDoc.DatabaseController.Logon CovletLoginID, CovletPasswd
'Copy existing parameter to NewParam object Set previewNewParam = previewoClientDoc.DataDefinition.ParameterFields(0).Clone
'Create new "DiscreteValue" object to hold new parameter's value Set previewNewValue = previewobjFactory.CreateObject("CrystalReports.ParameterFieldDiscreteValue")
previewNewValue.Value = Trim(previewSampleCheck)
'Set the new value for the parameter previewNewParam.CurrentValues.Add(previewNewValue)
'Modify the first parameter field with the NewParam object previewoClientDoc.DataDefController.ParameterFieldController.Modify 0, previewNewParam
'Create a new PrintOutputController object Dim previewoPrintOutputController Set previewoPrintOutputController = previewoClientDoc.PrintOutputController
Dim previewiFormat previewiFormat = CInt("5")
Dim previewoByteArray Set previewoByteArray = previewoPrintOutputController.Export(previewiFormat)
Select Case session("covlet_ReportType") Case "0" previewPhysicalPDFFileName = Application("OutputPath") & previewSampleCheck & ".pdf" Case "1" previewPhysicalPDFFileName = Application("OutputPath") & previewSampleCheck & "_PCCT" & ".pdf" Case "2" previewPhysicalPDFFileName = Application("OutputPath") & previewSampleCheck & "_DT" & ".pdf" End Select
previewoByteArray.Save previewPhysicalPDFFileName, True
In this code I need to convert to unicode load into PDF and how to convert unicode using above code.