Novice12 Ответов: 1

Как объединить 2 или более crystal report и объединить его с вашим VB.NET проект

Как вызвать crystal report с помощью кнопки печати
и как объединить или добавить вложенный отчет в crystal report
и как экспортировать их в одно приложение

Что я уже пробовал:

Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim cryRpt As New ReportDocument
        Dim crtableLogoninfos As New TableLogOnInfos
        Dim crtableLogoninfo As New TableLogOnInfo
        Dim crConnectionInfo As New ConnectionInfo
        Dim CrTables As Tables
        Dim CrTable As Table

        cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt")

        With crConnectionInfo
            .ServerName = "YOUR SERVER NAME"
            .DatabaseName = "YOUR DATABASE NAME"
            .UserID = "YOUR DATABASE USERNAME"
            .Password = "YOUR DATABASE PASSWORD"
        End With

        CrTables = cryRpt.Database.Tables
        For Each CrTable In CrTables
            crtableLogoninfo = CrTable.LogOnInfo
            crtableLogoninfo.ConnectionInfo = crConnectionInfo
            CrTable.ApplyLogOnInfo(crtableLogoninfo)
        Next

        CrystalReportViewer1.ReportSource = cryRpt
        CrystalReportViewer1.Refresh()
    End Sub



я использую ms access в качестве базы данных

1 Ответов

Рейтинг:
1

Andre Oosthuizen

К1) Как распечатать CR непосредственно на принтере -

относиться ЭТОТ ссылка.

Dim cryRpt As ReportDocument = New ReportDocument()
        cryRpt.Load(Server.MapPath("~/extraConrols/CrystalReport1.rpt"))
       
      
        CrystalReportViewer1.RefreshReport()
        CrystalReportViewer1.PrintMode = CrystalDecisions.Web.PrintMode.Pdf
 

        cryRpt.PrintToPrinter(1, False, 0, 0)


Вы также можете использовать - 
<form id="form1" runat="server">
        <CR:CrystalReportViewer ID="CrystalReportViewer1" runat="server" AutoDataBind="true" />
    </form>


с кодом -
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim cryRpt As ReportDocument = New ReportDocument()
        cryRpt.Load(Server.MapPath("~/extraConrols/CrystalReport1.rpt"))
        CrystalReportViewer1.ReportSource = cryRpt
       

        CrystalReportViewer1.RefreshReport()
        CrystalReportViewer1.PrintMode = CrystalDecisions.Web.PrintMode.Pdf


Q2) объединить 2 отчета -
Подход 1 : Использование суб-отчета :- Если у вас есть общий параметр между обоими отчетами, то лучший подход к этому-использовать один отчет в качестве суб-отчета, а второй будет рассматриваться как основной отчет. Для этого в основном отчете, Вставка -> в подотчет, сопоставьте оба отчета и выполните, что даст желаемый результат.

Видеть как объединить 2 crystal reports в 1 crystal reports более подробный.

Q3)как экспортировать отчет - используйте функцию PDF для экспорта.

Novice12

Можете ли вы по-прежнему использовать вложенный отчет при попытке создать в нем различные конструкции?
и где я могу найти crystalreportviewer в панели инструментов, я искал на вкладке reporting в панели инструментов, но указатель и средство просмотра отчетов присутствуют.
чем вы за свой ответ