[所见非所得]使用参数控制水晶报表的部分元素不打印

一般我们在使用水晶报表的时候，打印的时候是所见即所得的，就是模板上有什么，肯定会打印出什么来。

这就有一个问题，比如说打印票据，为了呈现效果，我们一般会做个底图，而只要求打印出数字来。

以前单纯想从SDK层面控制模板元素的显示与隐藏，未果。今天突然想到了这样的方法，与大家分享。

方法很简单:使用自定义打印功能，打印前重新用参数控制模板元素的显示与隐藏，然后再进行打印。

在下例中，我通过一个简单的例子来演示文本对象，数据库字段，背景图，子报表的控制。

编程环境：VB.net 2005 / Crystal Reports for Visual Studio 2005

模板是这样的，新建立5个参数。箭头方向表示了参数控制的对象。参数值为1时显示，参数值为0时不显示。其中紫色色块处为一个背景图片。
sub1和sub2是子报表。

在要控制的对象上点右键，【设置对象格式】，勾选【抑制显示】，编辑公式(此处以第一个控制对象为例)为：{?x1}=1

代码：

报表正常显示代码段（此处仅为核心示例代码）：

报表的正常显示（注意报表控件上的打印按钮可能需要禁止掉showprintbutton=false）

Private Sub ConfigureCrystalReports()
        '注意！此处的myReport不能设置为Class级别的变量，仅能为本函数体变量
        Dim myReport As New ReportDocument
        Dim reportPath As String = Application.StartupPath & "\" & "crystalreport1.rpt"
        myReport.Load(reportPath)
        myReport.ParameterFields("x1").CurrentValues.AddValue(1)
        myReport.ParameterFields("x2").CurrentValues.AddValue(1)
        myReport.ParameterFields("x3").CurrentValues.AddValue(1)
        myReport.ParameterFields("x4").CurrentValues.AddValue(1)
        myReport.ParameterFields("y").CurrentValues.AddValue(1)
        CrystalReportViewer1.ReportSource = myReport

    End Sub

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

 

界面上增加一个按钮（名称为myPrint），实现打印功能：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles myPrint.Click
        '注意此处的myReport应重新定义或初始化后再用，不能使用初始Load的myReport
        Dim myReport As New ReportDocument
        Dim reportPath As String = Application.StartupPath & "\" & "crystalreport1.rpt"
        myReport.Load(reportPath)
        myReport.ParameterFields("x1").CurrentValues.AddValue(0)
        myReport.ParameterFields("x2").CurrentValues.AddValue(0)
        myReport.ParameterFields("x3").CurrentValues.AddValue(0)
        myReport.ParameterFields("x4").CurrentValues.AddValue(1)
        myReport.ParameterFields("y").CurrentValues.AddValue(0)
        myReport.PrintOptions.PrinterName = "Microsoft Office Document Image Writer"
        myReport.PrintToPrinter(1, False, 1, 9999)

        '导出方法
        'CrystalReportViewer1.ReportSource = myReport
        'myReport.ExportToDisk(ExportFormatType.PortableDocFormat, "d:\ae0000.pdf")
        '使用控件打印方法，
        '最好使用一个隐藏的CrystalReportViewer2, 这样不影响CrystalReportViewer1的效果
        'CrystalReportViewer2.ReportSource = myReport
        'CrystalReportViewer2.PrintReport()
    End Sub

 

将这些代码段结合到你现在的应用中即可，这几段代码在WinForm和WebForm中简单修改即可使用。