[guyber]

gud day to all

i want a help on my printing report
could anybody help and give me a sample code
on how to establish a connection and produce some print output among
these tools..

php and cyrstal report
vb and crystal report
asp.net and crystal report

thanks ang god bless to all

[sastre06]

guyber, on 6 May, 2007 - 08:51 PM, said:

gud day to all

i want a help on my printing report
could anybody help and give me a sample code
on how to establish a connection and produce some print output among
these tools..

php and cyrstal report
vb and crystal report
asp.net and crystal report

thanks ang god bless to all

Just some suggestions on how to print the report in VB6
First thing is to add Data Report and Data environment.

paranormal_06@yahoo.com
PM me at YM

[iwoode]

sastre06, on 10 Jun, 2007 - 10:19 AM, said:

guyber, on 6 May, 2007 - 08:51 PM, said:

gud day to all

i want a help on my printing report
could anybody help and give me a sample code
on how to establish a connection and produce some print output among
these tools..

php and cyrstal report
vb and crystal report
asp.net and crystal report

thanks ang god bless to all

Just some suggestions on how to print the report in VB6
First thing is to add Data Report and Data environment.

paranormal_06@yahoo.com
PM me at YM

After adding a crystal report to a web project the following code shoud do the trick to allow you to query a database produce the report and show to user based on a shared directory on the server.

iwoode

[\quote]

 Sub SLDPDF()
		Dim sDate As String = Format(Today, "MMddyy")
		Dim RepType As String = "SLD_"
		Dim oRpt As New STD1

		CrystalReportViewer1.ReportSource = oRpt
		Dim MyConnection As New SqlClient.SqlConnection
		Dim strConnection As String = ConfigurationSettings.AppSettings("TEST")
		'Dim strConn As String = Current.Session("strConn")
		MyConnection.ConnectionString = strConnection
		Dim strSql = "select * from  test 
		Dim myDA As New System.Data.SqlClient.SqlDataAdapter
		Dim myDS As New DataSet
		myDA.SelectCommand = New System.Data.SqlClient.SqlCommand(strSql, MyConnection)
		myDA.Fill(myDS, "Command")
		oRpt.SetDataSource(myDS.Tables(0))
		Dim DiskOpts As CrystalDecisions.Shared.DiskFileDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions
		oRpt.ExportOptions.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
		oRpt.ExportOptions.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat
		 DiskOpts.DiskFileName = "D:\EXPORT\" & RepType + sDate & ".pdf"
		 oRpt.ExportOptions.DestinationOptions = DiskOpts
		oRpt.Export()

		Response.Redirect("\\servername\EXPORT\" & RepType + sDate & ".pdf")