Метод VB.Net для печати всех доступных отчетов одним нажатием кнопки - PullRequest
Новая
       11

Метод VB.Net для печати всех доступных отчетов одним нажатием кнопки

1 голос
/ 30 ноября 2011

Я создал форму окна со средством просмотра отчетов Crystal, поле со списком для выбора отчета для просмотра и кнопку, которую я хотел бы (Печать всех отчетов). Кнопка печати на панели инструментов зрителей распечатает отчет, просматриваемый в данный момент. Я хочу, чтобы кнопка в моем приложении печатала все отчеты, не просматривая их.

У меня следующий код, но он выдает исключение типа «CrystalDecisions.Shared.CrystalReportsException», возникшее в CrystalDecisions.CrystalReports.Engine.dll Дополнительная информация: Не удалось загрузить отчет. 

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.ReportSource
Imports CrystalDecisions.Shared
Imports CrystalDecisions.Windows.Forms


Public Class frmReport

Private Sub frmReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub cboReport_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboReport.SelectedIndexChanged

    Dim rptCustomer As New Customer
    Dim rptEmployee As New Employee

    Select Case cboReport.SelectedIndex
        Case 0
            Me.CrystalReportViewer1.ReportSource = rptCustomer
        Case 1
            Me.CrystalReportViewer1.ReportSource = rptEmployee

    End Select

End Sub

Private Sub btnPrintReports_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintReports.Click

    Dim rptCustomer As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim rptEmployee As New CrystalDecisions.CrystalReports.Engine.ReportDocument

    rptCustomer.Load("Customer.rpt")
    rptEmployee.Load("Employee.rpt")

    rptCustomer.PrintToPrinter(1, False, 0, 0)
    rptEmployee.PrintToPrinter(1, False, 0, 0)

End Sub


End Class

Я искал и не смог найти решение. Есть предложения?

1 Ответ

0 голосов
/ 30 ноября 2011

Когда вы вызываете CrystalDecisions.CrystalReports.Engine.ReportDocument Load метод, вам нужно указать путь и имя файла.

Кроме того, вы предоставили NETWORK SERVICE разрешения для Windows\Temp?

...