Question

我正在点击按钮上编写一个功能，允许用户向客户列表发送一封电子邮件，其中附带的发票附件.pdf是使用Crystal Reports制作的.pdf。我有电子邮件功能正常工作，我可以检索正确的信息并向列表中的每个客户发送电子邮件，但我在附件方面遇到问题。

在同一个项目中，我确实有一个带有ReportViewer的窗口，我用它来生成和查看单个报告，但是，由于可能会立即创建和发送大量报告，我需要现在创建它们而不使用此窗口。

是否可以生成报告，然后在不使用ReportViewer的情况下将其转换为.pdf，如果是，我该怎么做？

我想可能通过使用SQL来选择我需要的所有数据并将其存储在DataSet中，但我不确定在此之后需要做什么。

Answer 1

它实际上比我想象的更简单。想象它。

只需设置所需数据库的登录信息，然后使用SQL从数据库中检索数据，并将其存储在DataSet中，您将其设置为报告DataSource，然后将其导出。显然你可能有不同的做事方式，但这应该粗略地做到了

Dim report As New ReportDocument

                Dim dest As String = ` This is where you put your file destination
                report.Load(dest)

                Dim info As CrystalDecisions.Shared.TableLogOnInfo
                info = New CrystalDecisions.Shared.TableLogOnInfo()

                info.ConnectionInfo.DatabaseName = ' Your DB name
                info.ConnectionInfo.ServerName =' Your DB server name
                info.ConnectionInfo.Password = ' Your DB password
                info.ConnectionInfo.UserID = ' Your DB UserID
                report.Database.Tables(0).ApplyLogOnInfo(info)

                sql = "SELECT * FROM your_table"
                Dim rda As New OleDb.OleDbDataAdapter(sql, connectionstring)
                Dim rds As New DataSet
                rda.Fill(rds)

                report.SetDataSource(rds)

                CrDiskFileDestinationOptions.DiskFileName = ' Your directory path and chosen file name
                CrExportOptions = report.ExportOptions

                With CrExportOptions
                    .ExportDestinationType = ExportDestinationType.DiskFile
                    .ExportFormatType = ExportFormatType.PortableDocFormat
                    .DestinationOptions = CrDiskFileDestinationOptions
                    .FormatOptions = CrFormatTypeOptions
                End With

                report.Export()

在没有ReportViewer的情况下创建.rpt并将其转换为.pdf

1 个答案: