Print Crystall Report using ASP

For your first Question, it is nearly impossible.

For your second Question, there are 2 sets of job you need to do.
1.  Change your registry to allow IIS user to access your printer (find it in microsoft knowledge base(Q184291), if you still have difficulty, I will try to put it here)
2.  Make your code (assumed that you have installed crystal report in your web server)

*** The coding works ***
'The Following is print the result......
if session("PrintDetails") = 1 then
     
     '*** you can use SQL statement rather than calling stored procedure    
     Set cmd = Server.CreateObject("ADODB.Command")
     Set cmd.ActiveConnection = cn
     cn.cursorLocation = adUseClient
     cmd.CommandText = "nameofstoredprocedure"
     
     cmd.CommandType = adCmdStoredProc
     
     Set Session("oRS") = Server.CreateObject("ADODB.Recordset")
     Set Session("oRS") = cmd.Execute
                                       
     Session("error") = ""
               
     if not Session("oRS").EOF then
     %>  <%
          reportname="reportname.rpt"
          'Use Crystal Report Object to print your document                    
          Set session("oApp") = Server.CreateObject("Crystal.CRPE.Application")
                                                 
          path = "c:\folder\subfolder\"
                                                 
          If IsObject(session("oRpt")) then
               set session("oRpt") = nothing
          End If
                                                                     
          Set session("oRpt")=session("oApp").OpenReport(path & reportname, 1)
          'Clean up data of the report; useful for printing forest and clean up the previous one.
          session("oRpt").DiscardSavedData
          set Database = session("oRpt").Database
          set Tables = Database.Tables
          set Table1 = Tables.Item(1)
          'Read the record set into the table for printing
          Table1.SetPrivateData 3, Session("oRS")
                   
          On Error Resume Next
               session("oRpt").ReadRecords                    
                             
          If Err.Number <> 0 Then
               Response.Write "An Error has occured on the server in attemping to access the data source"
               Response.Write  " The NO & DESCRIPTION IS [" & Err.Number & ":" & Err.Description & "]       <br>"
          Else
               If IsObject(session("oPageEngine")) Then
                    set session("oPageEngine") = nothing
               End If
                    set session("oPageEngine") = session("oRpt").PageEngine
               End If
                         
               'Printer being shared, you can find the following information by printer test page of the printer                        
               Session("oRpt").SelectPrinter "printerdriver.DLL","\\Sharehost\Sharename","printername"
                         
               If Err.Number <> 0 then
                    response.write "oRpt SelectPrinter failed with error [" & Err.Number & ":" & Err.Description & "]       <br>"
               End If
               Dim result
                    result = session("oRpt").PrintOut(False)
                   
          end if
     end if
     
     If Err.number <> 0 Then
          Session("error") = "Error: Invoice Cannot Be Found / You Do Not Have Premission"
          if errorCode = 2 then  
               Session("error") = "Error: " & Err.Number & ". " & Err.Description  
          Else  
               errorCode = 1  
               Session("error") = "Error: Invoice Cannot Be Found / You Do Not Have Premission"  
          End If
     end if
     '****** END of Printing Function

Sorry, it should be preview is nearly impossible but the printing should be OK.  (NOT difficult)

Dear dummy boy,

i have done exactely what u have done..i am not able to print the report..even i have not recevied any error mgs also..

Session("oRpt").SelectPrinter "printerdriver.DLL","\\Sharehost\Sharename","printername"

what is the second parameter indicates..it is network printer machine name or some other else

1) more think i dont have printer in my web server..i have to select network printer..if i get the the Print dialog box of crystal report using ASP it is more useful for me..

regards
praveen

Yes, you need to share the network printer to the web server.

"\\Sharehost\" = the machine with the printer
"Sharename" = the printer name in the windows (the machine with the printer)

You will not get any error message...I have made a lot of "trial" versions but there is no message at all. (because nothing returned by the Crystal report's dll)

Try to print some "response.write" to write to variable value.

After the above step, check the registry.  Leave a message if you have any problem.

hai dummyboy,

still i have a problem..this the code i've writtern

 Session("oRpt").SelectPrinter "printerdriver.DLL ","\\pedg2\HP Laser Jet 4100 PCL 6","HP Laser Jet 4100 PCL 6"

 If Err.Number <> 0 then
        response.write "oRpt SelectPrinter failed with error [" & Err.Number & ":" & Err.Description & "]   <br>"
 End If

Dim result
          result = session("oRpt").PrintOut(false)

but Cr is not printed..what abt this Printerdriver.dll..this should be in Webserver or Printer machine.now where i can get this printerdriver.dll..

or pls tell me know how to get the CReport Printdialox box
directely.......??? pls ans ASAP.........

No comment has been added lately, so it's time to clean up this TA.
I will leave a recommendation in the Cleanup topic area that this question is:
[PAQ with REFUND]

Please leave any comments here within the next seven days.

PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER!

hongjun
EE Cleanup Volunteer