Public crxapplication As CRAXDRT.Application
Public crxreport As CRAXDRT.Report
Dim strReportName As String
Dim Fltr
crxapplication = New CRAXDRT.Application
'Pass the reportname to string variable
strReportName = "CITIES"
'Get the Report Location
Dim strReportPath As String = "C:\ReportViwer\ReportViwer" & "\" & strReportName & ".rpt"
'Check file exists
If Not IO.File.Exists(strReportPath) Then
Throw (New Exception("Unable to locate report file:" & vbCrLf & strReportPath))
End If
crxreport = crxapplication.OpenReport(strReportPath)
crxreport.DiscardSavedData()
'Delete all the original parameter values from the parameter picklist.
'If you want to keep the orginal parameter values in the parameter picklist, comment out this loop.
Do Until crxreport.ParameterFields(1).NumberOfDefaultValues = 0
crxreport.ParameterFields(1).DeleteNthDefaultValue(1)
Loop
crxreport.Database.Tables(1).SetDataSource(RS, 3)
' Read the records to force the parameter box to appear before sending data to the viewer
crxreport.ReadRecords()
Fltr = "{CITY_CITIES.COUNTRY_NO}={?COUNTRY_NO}"
' Get the value the user enters in the parameter box then send that text to the formula field (that ' the report is grouped on)
crxreport.RecordSelectionFormula = Fltr
' View the report
AxCrystalActiveXReportViewer1.ViewReport()
End Sub
The error I am getting is An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in axinterop.crystalactivexreportviewerlib10.dll
Additional information: Unspecified error
Can I have your help please.Which line are you getting the error?
Showing posts with label string. Show all posts
Showing posts with label string. Show all posts
Tuesday, March 20, 2012
crystal reports (urgent)
Sunday, March 11, 2012
Crystal report new line
Hi,
I a using crystal report 10.
I have a two database filed both are string
I am used one fomula filed named as "printednotes"
if some condition will meet I want display these two data fields
But it is displayed but My problem is that when I display these two filed
I want display one field a new line then second one .
tell me how make a new line when I display two string (s1+ new line +s2)
regards
Naltuchr(13)|||char(10) or char(13) will help provide you change the field object in crystal report as RTF format.
right click the field, click format object then choose RTF.
I a using crystal report 10.
I have a two database filed both are string
I am used one fomula filed named as "printednotes"
if some condition will meet I want display these two data fields
But it is displayed but My problem is that when I display these two filed
I want display one field a new line then second one .
tell me how make a new line when I display two string (s1+ new line +s2)
regards
Naltuchr(13)|||char(10) or char(13) will help provide you change the field object in crystal report as RTF format.
right click the field, click format object then choose RTF.
Wednesday, March 7, 2012
Crystal Error
HI ,
I'm trying to print a rpt. file ( C.R. 8.5) from a VB.net program
code :
Dim Reporte As New crAlmacen
Dim x As String = Reporte.FilePath()
Dim x1 As String = Reporte.ResourceName
Reporte.SetDatabaseLogon("termi", "termi", "SERVIDOR1", "mestres")
Reporte.Refresh()
' Reporte.PrintOptions.PrinterName = "Lexmark Optra S 2455"
Reporte.PrintToPrinter(1, False, 1, 1)
An unhandled exception of type 'CrystalDecisions.CrystalReports.Engine.InvalidArgumentException' occurred in crystaldecisions.crystalreports.engine.dll
Additional information: Error in File C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp\temp_50488d2a-21be-4a5a-a4df-ad83112d6274.rpt:
Invalid printer specified.
thanks a lotHI ,
I HAVE SOLVED THE PROBLEM
Dim Reporte As New crAlmacen
Dim x As String = Reporte.FilePath()
Dim x1 As String = Reporte.ResourceName
Reporte.SetDatabaseLogon("termi", "termi", "SERVIDOR1", "mestres")
Reporte.Refresh()
NEW CODE LINE
---------------------
Reporte.PrintOptions.PaperSource = CrystalDecisions.[Shared].PaperSource.Auto
---------------------
' Reporte.PrintOptions.PrinterName = "Lexmark Optra S 2455"
Reporte.PrintToPrinter(1, False, 1, 1)
AND NOW GO RIGHT
BEST REGARDS|||Glad that's sorted :D
I'm trying to print a rpt. file ( C.R. 8.5) from a VB.net program
code :
Dim Reporte As New crAlmacen
Dim x As String = Reporte.FilePath()
Dim x1 As String = Reporte.ResourceName
Reporte.SetDatabaseLogon("termi", "termi", "SERVIDOR1", "mestres")
Reporte.Refresh()
' Reporte.PrintOptions.PrinterName = "Lexmark Optra S 2455"
Reporte.PrintToPrinter(1, False, 1, 1)
An unhandled exception of type 'CrystalDecisions.CrystalReports.Engine.InvalidArgumentException' occurred in crystaldecisions.crystalreports.engine.dll
Additional information: Error in File C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp\temp_50488d2a-21be-4a5a-a4df-ad83112d6274.rpt:
Invalid printer specified.
thanks a lotHI ,
I HAVE SOLVED THE PROBLEM
Dim Reporte As New crAlmacen
Dim x As String = Reporte.FilePath()
Dim x1 As String = Reporte.ResourceName
Reporte.SetDatabaseLogon("termi", "termi", "SERVIDOR1", "mestres")
Reporte.Refresh()
NEW CODE LINE
---------------------
Reporte.PrintOptions.PaperSource = CrystalDecisions.[Shared].PaperSource.Auto
---------------------
' Reporte.PrintOptions.PrinterName = "Lexmark Optra S 2455"
Reporte.PrintToPrinter(1, False, 1, 1)
AND NOW GO RIGHT
BEST REGARDS|||Glad that's sorted :D
Subscribe to:
Posts (Atom)