ASP.NET

<CR:CrystalReportViewer ID="CrystalReportViewer1" runat="server" AutoDataBind="true"
                PrintMode="ActiveX" EnableDatabaseLogonPrompt="false" />
        <asp:Button ID="Button1" runat="server" Text="Button" />

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

shrikant.kudlur wrote:

i dont want to hard code the printer name.