如何使PDF成为Crystal报表的默认导出选项？

问题描述：

我在Visual Studio 2008的WinForms中使用CrystalDecisions.CrystalReports.Engine.ReportDocument。现在，当用户单击导出按钮时，对话框默认将报表保存为CrystalReports格式的文件。可以将选择器更改为PDF，但是我已经给出的具体请求 - 我搜索太多小时试图找到 - 是使导出报告对话框默认为PDF格式选项。

I am working with CrystalDecisions.CrystalReports.Engine.ReportDocument in WinForms in Visual Studio 2008. Right now when the users click the export button the dialog defaults to saving the report as a CrystalReports formatted file. It's possible to change the selector to PDF, but the specific request that I've been given -- and I've searched for too many hours trying to find -- is to make the 'export report' dialog default to PDF format option.

有没有人知道如何做？

答

CR XI，我知道的唯一方法是用您自己的替换导出对话框。您可以将自己的按钮添加到CrystalReportViewer控件并隐藏其导出按钮。

As of CR XI, the only way I know is to replace the export dialog with your own. You can add your own button to the CrystalReportViewer control and hide their export button.

这里是vb.net代码，用您自己的按钮/ eventhandler替换导出按钮...

Here's vb.net code to replace the export button with your own button/eventhandler...

Public Shared Sub SetCustomExportHandler(ByVal crv As CrystalDecisions.Windows.Forms.CrystalReportViewer, ByVal export_click_handler As EventHandler)
        For Each ctrl As Control In crv.Controls
            'find the toolstrip
            If TypeOf ctrl Is ToolStrip Then
                Dim ts As ToolStrip = DirectCast(ctrl, ToolStrip)

                For Each tsi As ToolStripItem In ts.Items

                    'find the export button by it's image index
                    If TypeOf tsi Is ToolStripButton AndAlso tsi.ImageIndex = 8 Then

                        'CRV export button
                        Dim crXb As ToolStripButton = DirectCast(tsi, ToolStripButton)

                        'clone the looks of the export button
                        Dim tsb As New ToolStripButton
                        With tsb
                            .Size = crXb.Size
                            .Padding = crXb.Padding
                            .Margin = crXb.Margin
                            .TextImageRelation = crXb.TextImageRelation

                            .Text = crXb.Text
                            .ToolTipText = crXb.ToolTipText
                            .ImageScaling = crXb.ImageScaling
                            .ImageAlign = crXb.ImageAlign
                            .ImageIndex = crXb.ImageIndex
                        End With

                        'insert custom button in it's place
                        ts.Items.Insert(0, tsb)

                        AddHandler tsb.Click, export_click_handler

                        Exit For
                    End If
                Next

                Exit For
            End If
        Next

        'hide the default export button
        crv.ShowExportButton = False
    End Sub

然后在点击处理程序中显示一个自定义的SaveFileDialog并最终调用ReportDocument.ExportToDisk方法。这样，您可以将对话框的标题和文件名设置为有用的，当然设置默认导出类型。

Then in the click handler you'd show a customized SaveFileDialog and eventually call the ReportDocument.ExportToDisk method. This way you can set the dialog's title and filename to something useful and of course set the default export type.

如何使PDF成为Crystal报表的默认导出选项？

相关推荐