如何将多个 Crystal Report 放入一个 Crystal Report 查看器中？

Question

所以事情是这样的..

我编写了 ac# 应用程序，为每个员工生成每月的出勤报告，并附有他自己的详细信息 我希望能够为所有员工执行一次此操作并查看按姓名分组的报告 因此，当我从水晶报表子树中选择客户名称时，我会得到他的每月出勤报告，

我真的不知道如何在水晶报表中使用子树......是否有可能这样做？

---

所有这一切的目标是能够一键打印所有报告

Answer 1

这并不完全是您所要求的，但我将发布它，因为它可能对您有用。我在类似的情况下为我做了。另外对 VB 语法表示抱歉。

这将允许您使用 Crystal Reports 引擎将报告创建为 PDF。基本上，它允许您使用循环创建多个 PDF，然后可以自动打印。Export PDF Sub 会将文件写入磁盘，然后使用默认的 pdf 阅读器打开它。打印 PDF 功能将自动打印保存到磁盘的 PDF 文件。这不是一个完美的解决方案，但我希望它至少能让您更接近您想要实现的目标。

公共类 PDFCR

Private Const SW_SHOWNORMAL As Integer = 2
<DllImport("shell32")> _
Public Shared Function ShellExecute(ByVal hWnd As IntPtr, _
                                    ByVal lpOperation As String, _
                                    ByVal lpFile As String, _
                                    ByVal lpParameters As String, _
                                    ByVal lpDirectory As String, _
                                    ByVal nShowCmd As Integer) As IntPtr
End Function

Public Shared Sub ExportPDF(ByVal crDOC As ReportDocument, ByVal FilePath As String)
    Dim CrExportOptions As ExportOptions
    Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions()
    Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
    CrDiskFileDestinationOptions.DiskFileName = FilePath
    CrExportOptions = crDOC.ExportOptions
    CrExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
    CrExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat
    CrExportOptions.DestinationOptions = CrDiskFileDestinationOptions
    CrExportOptions.FormatOptions = CrFormatTypeOptions
    crDOC.Export()
    Process.Start(FilePath)
End Sub

Public Shared Function PrintPDF(ByVal FilePath As String) As Boolean
    If IO.File.Exists(FilePath) Then
        If ShellExecute(CType(1, IntPtr), "Print", FilePath, "", _
        Directory.GetDirectoryRoot(FilePath), SW_SHOWNORMAL).ToInt32 <= 32 Then
            Return False
        Else
            Return True
        End If
    Else
        Return False
    End If
End Function

结束类

我无法让导入在此代码块中显示，因此这里它们以纯文本形式显示。

导入 System.IO

导入 System.Management

导入 CrystalDecisions.Shared

导入 System.Runtime.InteropServices

导入 CrystalDecisions.CrystalReports.Engine

Answer 2

如果您在报告中的“员工姓名”字段中添加“组”，这将（默认情况下）创建您正在查找的组树。

从那里，从代码角度来说，它可以被关闭，但如果您的报表中有任何组，您应该默认看到组树。

问题似乎是报告没有按员工姓名分组。