add this code to ur print button
"Dim strFileName As String = "Test.pdf
Dim rptDoc As New ReportDocument
rptDoc.Load(Server.MapPath(" crystalreport1.rpt
rptDoc.SetDataSource(das
,"rptDoc.SetDatabaseLogon("sa
Dim exportOpts As New ExportOptions
Dim pdfopts As New PdfRtfWordFormatOptions
Dim diskOpts As New DiskFileDestinationOptions
exportOpts = rptDoc.ExportOptions
exportOpts.ExportFormatType = ExportFormatType.PortableDocFormat
exportOpts.FormatOptions = pdfopts
exportOpts.ExportDestinationType = ExportDestinationType.DiskFile
diskOpts.DiskFileName = Server.MapPath(strFileName
exportOpts.DestinationOptions = diskOpts
rptDoc.Export
'Response.Redirect(strFileName)' use this line to view ur report in acrobat
''''
''the below is to print the file without preview it
Dim p As New System.Diagnostics.ProcessStartInfo
"p.Verb = "print
p.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden
" p.FileName = "C:\Inetpub\wwwroot\WebApplication1\test.pdf
p.UseShellExecute = True
System.Diagnostics.Process.Start(p