การออกรายงาย report จาก Textbox โดยไม่ต้องเชื่อมต่อฐานข้อมูล

    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim cryRpt As ReportDocument = New ReportDocument
        cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt")
        Dim crtableLogoninfos As TableLogOnInfos = New TableLogOnInfos
        Dim crtableLogoninfo As TableLogOnInfo = New TableLogOnInfo
        Dim crConnectionInfo As ConnectionInfo = New ConnectionInfo
        Dim CrTables As Tables
        crConnectionInfo.ServerName = "YOUR SERVERNAME"
        crConnectionInfo.DatabaseName = "DATABASE NAME"
        crConnectionInfo.UserID = "USERID"
        crConnectionInfo.Password = "PASSWORD"
        CrTables = cryRpt.Database.Tables
        For Each CrTable As CrystalDecisions.CrystalReports.Engine.Table In CrTables
            crtableLogoninfo = CrTable.LogOnInfo
            crtableLogoninfo.ConnectionInfo = crConnectionInfo
            CrTable.ApplyLogOnInfo(crtableLogoninfo)
        Next
        cryRpt.Refresh
        cryRpt.PrintToPrinter(2, true, 1, 2)
    End Sub

private void button1_Click(object sender, EventArgs e)
{
	ReportDocument cryRpt = new ReportDocument();
	cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\\CrystalReport1.rpt");
	TableLogOnInfos crtableLogoninfos = new TableLogOnInfos();
	TableLogOnInfo crtableLogoninfo = new TableLogOnInfo();
	ConnectionInfo crConnectionInfo = new ConnectionInfo();
	Tables CrTables = default(Tables);
	crConnectionInfo.ServerName = "YOUR SERVERNAME";
	crConnectionInfo.DatabaseName = "DATABASE NAME";
	crConnectionInfo.UserID = "USERID";
	crConnectionInfo.Password = "PASSWORD";
	CrTables = cryRpt.Database.Tables;
	foreach (CrystalDecisions.CrystalReports.Engine.Table CrTable in CrTables) {
		crtableLogoninfo = CrTable.LogOnInfo;
		crtableLogoninfo.ConnectionInfo = crConnectionInfo;
		CrTable.ApplyLogOnInfo(crtableLogoninfo);
	}
	cryRpt.Refresh();
	cryRpt.PrintToPrinter(2, true, 1, 2);
}