如何在Crystal Reports中捕获"打印报表"按钮事件？

在VB项目里捕获Crystal Reports打印按钮的点击事件其实挺容易实现的，咱们可以借助CrystalReportViewer控件的内置事件来完成你的需求——点击打印按钮后弹出消息框、执行查询，同时不影响默认的打印对话框弹出。具体操作和代码如下：

1. 绑定ToolbarButtonClicked事件 #

首先找到窗体上的CrystalReportViewer控件，要么在属性窗口里找到ToolbarButtonClicked事件双击自动生成处理方法，要么在代码里手动绑定这个事件。这个事件会在用户点击工具栏上任意按钮时触发。

2. 识别打印按钮并执行自定义逻辑 #

在事件处理方法里，我们只需要判断点击的按钮是不是打印按钮，然后就可以插入自己的操作了。

完整VB代码示例 #

Imports CrystalDecisions.Windows.Forms
Imports CrystalDecisions.Shared

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 加载你的报表到Viewer控件，替换成你实际的报表类
        Dim targetReport As New YourReportClass()
        CrystalReportViewer1.ReportSource = targetReport
    End Sub

    Private Sub CrystalReportViewer1_ToolbarButtonClicked(sender As Object, e As ToolbarButtonClickedEventArgs) Handles CrystalReportViewer1.ToolbarButtonClicked
        ' 判断用户点击的是打印按钮
        If e.Button.ButtonType = ToolBarButtonType.Print Then
            ' 弹出消息框提示
            MessageBox.Show("检测到打印操作，即将执行查询！", "操作提示")

            ' 执行你的自定义查询逻辑
            RunCustomQuery()

            ' 如果你想阻止默认的打印对话框弹出，就把下面这行注释取消
            ' e.Handled = True
        End If
    End Sub

    ' 自定义查询方法，替换成你实际的数据库操作逻辑
    Private Sub RunCustomQuery()
        ' 示例代码，你可以换成自己的查询逻辑
        ' Using sqlConn As New SqlClient.SqlConnection("你的数据库连接字符串")
        '     sqlConn.Open()
        '     Dim queryCmd As New SqlClient.SqlCommand("SELECT * FROM YourTargetTable", sqlConn)
        '     Dim queryResult As SqlClient.SqlDataReader = queryCmd.ExecuteReader()
        '     ' 这里处理查询结果
        '     queryResult.Close()
        ' End Using
        MessageBox.Show("自定义查询已完成！")
    End Sub
End Class

3. 注意要点 #

• 记得添加Crystal Reports的必要引用：右键项目→添加引用，找到CrystalDecisions.CrystalReports.Engine、CrystalDecisions.Windows.Forms、CrystalDecisions.Shared这几个组件并添加。
• 这个事件是在打印按钮点击后、系统打印对话框弹出前触发的，刚好符合你的需求顺序。
• 如果需要完全自定义打印流程而不使用默认对话框，设置e.Handled = True即可阻止默认行为，然后自己编写打印逻辑。

内容的提问来源于stack exchange，提问作者Rak