Crystal Report Direct Print

[thatraja]

The 1st one is object instance related issue & then your VB.NET conversion code is right one. Your code looks like right one but something makes trouble. ok let me do something, you just send me the report page, i'll test & will make it run. It should not take more time here after any more. Regards, thatraja thatraja@yahoo.com

[Girish_Sharma]

Partial Class _Default Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ocn As New System.Data.OracleClient.OracleConnection Dim oda As New System.Data.OracleClient.OracleDataAdapter("select empno,ename from emp", ocn) Dim ods As New System.Data.DataSet() ocn.ConnectionString = "Data Source=orcl;User ID=scott;Password=pw;Unicode=True" oda.Fill(ods) Dim rptprint As New CrystalDecisions.CrystalReports.Engine.ReportDocument() rptprint.Load(Server.MapPath("Reports").ToString() + "\\CrystalReport.rpt") 'TextBox1.Text = ods.Tables(0).Rows(0).Item("empno") 'This is no error rptprint.SetDataSource(ods) 'This is no error CrystalReportViewer1.ReportSource = rptprint 'This is error of object instantiate. 'CrystalReportViewer1.DataBind() ''rptprint.PrintOptions.PrinterName = DefaultPrinterName() ''rptprint.PrintToPrinter(1, False, 0, 0) 'TextBox1.Text = DefaultPrinterName() rptprint.Close() rptprint.Dispose() ocn.Close() ocn.Dispose() ods.Dispose() oda.Dispose() 'Dim host As New System.Net.IPHostEntry 'host = System.Net.Dns.GetHostEntry(Context.Request.ServerVariables("REMOTE_HOST")) 'Dim strSystemName As String = host.HostName 'Dim strPrinterName As String = "Generic / Text Only" 'rptprint.PrintOptions.PrinterName = strSystemName + "\\" + strPrinterName End Sub Public Shared Function DefaultPrinterName() As String Dim oPS As New System.Drawing.Printing.PrinterSettings Try DefaultPrinterName = oPS.PrinterName Catch ex As System.Exception DefaultPrinterName = "" Finally oPS = Nothing End Try End Function End Class This is what i have in default.aspx.vb file. I have : 1.one crystalreportviewer control 2.one button control 3.one textbox control I have not yet used your code, because this object instance error is frustraing me. Regards Girish Sharma

[thatraja]

Hi, i have checked code, the issue is you are closing & disposing the Report Document object in Button1_Click event which was created there. For that you should create the Report Document object in class & then close & dispose in Page_Unload event. use the code

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.ReportSource
Imports CrystalDecisions.Web

Partial Public Class _Default
Inherits System.Web.UI.Page

Dim rptprint As New CrystalDecisions.CrystalReports.Engine.ReportDocument()

Protected Sub Page\_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
    rptprint.Close()
    rptprint.Dispose()
End Sub

Protected Sub Button1\_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim ocn As New System.Data.SqlClient.SqlConnection
    Dim oda As New System.Data.SqlClient.SqlDataAdapter("select \* from Employees", ocn)
    Dim ods As New System.Data.DataSet()
    ocn.ConnectionString = "Data Source=RAJA;User ID=sa;Password=123;Initial Catalog=Northwind"
    oda.Fill(ods)

    rptprint.Load("C:\\CrystalReport1.rpt")
    rptprint.SetDataSource(ods)

    ' For DB Login
    Dim crtableLogoninfos As New TableLogOnInfos()
    Dim crtableLogoninfo As New TableLogOnInfo()
    Dim crConnectionInfo As New ConnectionInfo()
    Dim CrTables As Tables
    crConnectionInfo.ServerName = "RAJA"
    crConnectionInfo.DatabaseName = "Northwind"
    crConnectionInfo.UserID = "sa"
    crConnectionInfo.Password = "123"

    CrTables = rptprint.Database.Tables
    For Each CrTable As CrystalDecisions.CrystalReports.Engine.Table In CrTables
        crtableLogoninfo = CrTable.LogOnInfo
        crtableLogoninfo.ConnectionInfo = crConnectionInfo
        CrTable.ApplyLogOnInfo(crtableLogoninfo)
    Next
    '/ For DB Login

    CrystalReportViewer1.ReportSource = rptprint
    CrystalReportViewer1.DataBind()

    ocn.Close()
    ocn.Dispose()
    ods.Dispose()
    oda.Dispose()
End Sub

End Class

Here i want to inform you another thing, you can see the property EnableDatabaseLogonPrompt

[Girish_Sharma]

Thank you for your replies. Yes now object error has been removed; but now i am getting further error : Dim host As New System.Net.IPHostEntry host = System.Net.Dns.GetHostEntry(Context.Request.ServerVariables("REMOTE_HOST")) Dim strSystemName As String = host.HostName Dim strPrinterName As String = "Generic / Text Only" TextBox1.Text = strSystemName 'Here i am getting 127.0.0.1 not \\mymachine name as you said i.e. \\RAJA In my case it should be \\GIRISH (as this machine where i am using) or on another client machine it should be that client machine's name. rptprint.PrintOptions.PrinterName = strSystemName + "\\" + strPrinterName rptprint.PrintToPrinter(1, False, 0, 0) So, i am getting error : (A new error windows pop up) COMException was unhandled by user code Invalid printer specified. Troubleshooting tips: Check the ErrorCode property of the exception to determine the HRESULT returned by the COM object. Get general help for this exception. Regards Girish Sharma

[thatraja]

I'm sorry i'm not well since last week with heavy fever that's i can't able to reply quickly. As per my coding, you will be get IP address instead of System name, i mentioned "\\RAJA" for just easy understand. Please mention which line error occurs? ok.

[shrikant kudlur]

i dont want to hard code the printer name. if i do so then it will print the report to same printer every time. in my office there are 20 comp and each comp has printer connected to it. i want to print to a printer which is connected to particular client. thanks,

[thatraja]

shrikant.kudlur wrote:

i dont want to hard code the printer name.

It's just an example snippet. You can set default printer if you want. So you should change the code based on your need. That's all. You can find code for "Get/Set Default printer" in Google. Cheers.

thatraja

---

**My Tip/Tricks
My Dad had a Heart Attack on this day so don't...
**

[shrikant kudlur]

Here is my code ReportDocument doc = new ReportDocument(); doc.Load(Server.MapPath("crystalreport.rpt")); System.Net.IPHostEntry host; host = System.Net.Dns.GetHostEntry(Context.Request.ServerVariables["REMOTE_HOST"]); string strSystemName = host.HostName; string strPrinterName = "Generic / Text Only"; doc.PrintOptions.PrinterName=strSystemName + "\\" + strPrinterName; doc.PrintToPrinter(1,true,1,1); i m getting this error: System.Runtime.InteropServices.COMException: Invalid printer specified at this line: doc.PrintOptions.PrinterName=strSystemName + "\\" + strPrinterName; i m geting the name of the system currect but i think i mad simple mistake in assigning printer name plz help me thanks in advance

[thatraja]

This link will help you to resolve the issue. Clickety[^]

thatraja

---

**My Tip/Tricks
My Dad had a Heart Attack on this day so don't...
**

[shrikant kudlur]

link is not working...

[thatraja]

But It's still working for me. Please try again. Try in different browsers.

thatraja

---

**My Tip/Tricks
My Dad had a Heart Attack on this day so don't...
**